はじめてのErlang

んー、とりあえずFizzBuzzですか？ やっぱり。
ファイル: fizz.erl

-module(fizz).
-export([fizzbuzz/1, main/1]).

fizzbuzz(N) when (N rem 15) =:= 0 -> "FizzBuzz";
fizzbuzz(N) when (N rem  5) =:= 0 -> "Buzz";
fizzbuzz(N) when (N rem  3) =:= 0 -> "Fizz";
fizzbuzz(N) -> integer_to_list(N).

main(_) ->
    Dump = fun(S) -> io:put_chars(S), io:nl() end,
    lists:foreach(Dump, [fizzbuzz(X) || X <- lists:seq(1, 100)]).

実行例:

$ escript fizz.erl
1
2
Fizz
4
Buzz
Fizz
...