http://ii.drx.pl/ 2026-05-23T19:57:39+02:00 http://ii.drx.pl/ http://ii.drx.pl/lib/images/favicon.ico text/html 2010-03-11T14:33:19+02:00 http://ii.drx.pl/kurs_jezyka_erlang:10.lista02?rev=1268314399&do=diff Zadanie 1. (dude) #!/usr/bin/env escript main(Y) -> X = toint(Y), case length(X) of 0 -> io:format("usage: ./seq n [n [n]]~n"); 1 -> [A] = X, seq(A); 2 -> [A, B] = X, seq(A, B); 3 -> [A, B, C] = X, seq(A, B, C) end. toint([]) -> []; toint([H|T]) -> [list_to_integer(H) | toint(T)]. seq(En… text/html 2010-03-21T19:17:56+02:00 http://ii.drx.pl/kurs_jezyka_erlang:10.lista03?rev=1269195476&do=diff Zadanie 1. Wersja 1. (drx) -module(zad1). -export([amicable/1, rozklad/1]). rozklad(N) -> rozklad(N, 2, []). addfactor(F, Fs) -> T = lists:keyfind(F, 1, Fs), if T == false -> lists:keystore(F, 1, Fs, {F, 1}); true -> {F, N} = T, lists:keyreplace(F, 1, Fs, {F, N+1}) end. rozklad(N, F, Fs) -> M = N rem F, if F > N -> Fs; M =:= 0 -> rozklad(N div F, 2, addfactor(F, Fs)); M =/= 0 -> rozklad(N, F+1, Fs) end… text/html 2010-03-30T21:41:16+02:00 http://ii.drx.pl/kurs_jezyka_erlang:10.lista04?rev=1269978076&do=diff Zadanie 2. #!/usr/bin/env escript main(_) -> case io:get_line("") of eof -> {error, read_error}; {error, Reason} -> {error, read_error, Reason}; Input -> analyze(hd_to_binary(Input)) end. hd_to_binary(HD) -> hd_to_binary(HD, []). hd_to_binary("\n", Acc) -> list_to_binary(lists:reverse(Acc)); hd_to_binary([X,Y|HD], Acc) -> {ok, [V], []} = io_lib:fread("~16u", [X,Y]), hd_to_binary(HD, [V | Acc]). binary_to_hd(Bin) -> lists:flatten([io_lib:forma… text/html 2010-04-12T17:11:35+02:00 http://ii.drx.pl/kurs_jezyka_erlang:10.lista05?rev=1271085095&do=diff Rozwiązania Pontona Dla posiadających gita: git clone git://github.com/ponton/Kurs-Erlanga.git Dla posiadających przeglądarkę (działa bez JavaScriptu!): <http://github.com/ponton/Kurs-Erlanga/tree/master/list%204/> Tarball: <http://github.com/ponton/Kurs-Erlanga/tarball/master>