FizzBuzz

fizzbuzz.erl

%% fizzbuzz
fizzbuzz(N) ->
    if
	N rem 15 == 0 ->
	    io:fwrite("~w~n", [fizzbuzz]);
	N rem 3 == 0 ->
	    io:fwrite("~w~n", [fizz]);
	N rem 5 == 0 ->
	    io:fwrite("~w~n", [buzz]);
	true ->
	    io:fwrite("~w~n", [N])
    end.
run_fizzbuzz(N) ->
    run_fizzbuzz(N, 1).
run_fizzbuzz(N, N) ->
    fizzbuzz(N);
run_fizzbuzz(N, M) ->
    fizzbuzz(M),
    run_fizzbuzz(N, M + 1).