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

11 lines
162 B
Erlang

do() ->
do(0).
do(0) ->
io:fwrite( "0 " ),
do( 1 );
do(N) when N rem 6 =:= 0 ->
io:format("~w~n", [N]);
do(N) ->
io:fwrite( "~p ", [N] ),
do(N+1).