2013-06-05 21:47:54 +00:00
|
|
|
%% Implemented by Arjun Sunel
|
|
|
|
|
-module(forever).
|
|
|
|
|
-export([main/0, for/0]).
|
|
|
|
|
|
|
|
|
|
main() ->
|
|
|
|
|
for().
|
|
|
|
|
|
|
|
|
|
for() ->
|
|
|
|
|
K = random:uniform(19),
|
2013-10-27 22:24:23 +00:00
|
|
|
io:fwrite( "~p ", [K] ),
|
2013-06-05 21:47:54 +00:00
|
|
|
if K==10 ->
|
2013-10-27 22:24:23 +00:00
|
|
|
ok;
|
2013-06-05 21:47:54 +00:00
|
|
|
true ->
|
|
|
|
|
M = random:uniform(19),
|
|
|
|
|
io:format("~p~n",[M]),
|
|
|
|
|
for()
|
|
|
|
|
end.
|
