Middle three digits: Difference between revisions

m
Line 876:
end.
 
loop(0, N) when N rem 1000 =:= 0 ->
io:format("000\~3..0B~n",[N rem 1000]);
loop(0, N) when N rem 1000 < 10 ->
io:format("00~w~n",[N rem 1000]);
loop(0, N) N rem 1000 < 100 ->
io:format("0~w~n",[N rem 1000]);
loop(0, N) ->
io:format("~w~n", [N rem 1000]);
loop(X,N) when X>0 ->
loop(X-1, N div 10).
Anonymous user