RosettaCodeData/Task/Loops-Do-while/Erlang/loops-do-while.erl

12 lines
162 B
Erlang
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
do() ->
2013-10-27 22:24:23 +00:00
do(0).
2013-04-10 21:29:02 -07:00
2013-10-27 22:24:23 +00:00
do(0) ->
io:fwrite( "0 " ),
do( 1 );
2013-04-10 21:29:02 -07:00
do(N) when N rem 6 =:= 0 ->
io:format("~w~n", [N]);
do(N) ->
2013-10-27 22:24:23 +00:00
io:fwrite( "~p ", [N] ),
2013-04-10 21:29:02 -07:00
do(N+1).