fizzbuzz1

なんか編集中に誤ってfizzbuzz1の記事を削除してしまった。
むずかしい。
多分以下のような事が書いてあった。大体あってるはず。

• • • • • -

fizzbuzzが出来るといろいろなご利益があると、id:hitode909 あたりから小耳に挟んだのでやってみた。
erlangのスクリプトで書いた。

#!/opt/local/bin/escript

main(_)->
    io:format("~p~n",[lists:reverse(fizzbuzz(30))]).

fizzbuzz(0) ->
    [];
fizzbuzz(X) when X rem 3 =:= 0, X rem 5 =:= 0 ->
    ['FizzBuzz'|fizzbuzz(X-1)];
fizzbuzz(X) when X rem 3 =:= 0 ->
    ['Fizz'|fizzbuzz(X-1)];
fizzbuzz(X) when X rem 5 =:= 0 ->
    ['Buzz'|fizzbuzz(X-1)];
fizzbuzz(X) ->
    [X|fizzbuzz(X-1)].