「逆FizzBuzz」をErlangで

趣味と勉強を兼ねて「逆FizzBuzz」(d:id:matarillo:20120515)をErlangでやってみました。

以下のソースをifb.erlというファイルに保存し、Erlangのコンソールから「c(ifb).」「ifb:sample().」で実行できます。


1> c(ifb).
{ok,ifb}
2> ifb:sample().
[fizz] -> [3]
[buzz] -> [5]
[fizz,buzz] -> [9,10]
[buzz,fizz] -> [5,6]
[fizz,buzz,fizz] -> [3,4,5,6]
[fizz,fizz] -> [6,7,8,9]
[fizz,fizz,buzz] -> [6,7,8,9,10]
[fizz,fizzbuzz,fizz,buzz] -> [12,13,14,15,16,17,18,19,20]
[buzz,fizz,buzz] -> error
ok