くんすとの備忘録

プログラミングや環境設定の覚え書き。

【Erlang】ErlangでFizzBuzzやってみた

何だかFizzBuzz書くのが HelloWorld の代わりみたいになっているような気がします。

#!/usr/bin/env escript

main(Args) ->
    N = list_to_integer(erlang:hd(Args)),   % Arguments[0] to a Number
    lists:foreach(
        fun(X) -> io:format("~p~n", [X]) end,
        fizzBuzz(N)).

% Get FizzBuzz Array
%    N is max number of FizzBuzz
fizzBuzz(N) ->
    lists:foldl(
        fun
            (X, Sum) when X rem 15 =:= 0 -> Sum ++ ["FizzBuzz"];
            (X, Sum) when X rem  5 =:= 0 -> Sum ++ ["Buzz"];
            (X, Sum) when X rem  3 =:= 0 -> Sum ++ ["Fizz"];
            (X, Sum)                     -> Sum ++ [integer_to_list(X)]
        end,
        [],
        lists:seq(1, N)
    ).

※コンパイルが面倒だったのでescript使ってます。

  • 何度か迷子になりながら書きました。
  • writeとかfwriteとかformatとかわけわかめ。。。とりあえず io:format/2 だけ覚えよう。
  • ifの代わりにガード!っていう感覚。
  • Rubyで言うと・・・
    • lists:seq は Range
    • lists:foldl は inject  なのかな。


だんだん慣れていきたい。

広告