RosettaCodeData/Task/Loops-Break/Erlang/loops-break.erl
Ingy döt Net 776bba907c Sync
2013-10-27 22:24:23 +00:00

17 lines
263 B
Erlang

%% Implemented by Arjun Sunel
-module(forever).
-export([main/0, for/0]).
main() ->
for().
for() ->
K = random:uniform(19),
io:fwrite( "~p ", [K] ),
if K==10 ->
ok;
true ->
M = random:uniform(19),
io:format("~p~n",[M]),
for()
end.