読者です 読者をやめる 読者になる 読者になる

雀巽の日記帳

雀巽が綴る日常の記録

Erlang でズンドコ

周りでズンドコが流行ってたので Erlang で実装してみました。

kiyoshi.erl

-module(kiyoshi).
-export([zundoko/0]).

zundoko() ->
  zundoko([say(), say(), say(), say(), say()], []).

zundoko(["ドコ", "ズン", "ズン", "ズン", "ズン"], Rest) ->
  io:format(string:join(lists:reverse(["キ・ヨ・シ!~n", "ドコ", "ズン", "ズン", "ズン", "ズン" | Rest]), "、"));
zundoko([A, B, C, D, E], Rest) ->
  zundoko([say(), A, B, C, D], [E | Rest]).

say()->
  case random:uniform(2) of
    1 -> "ズン";
    2 -> "ドコ"
  end.

実行

1> c("kiyoshi").
{ok,kiyoshi}
2> kiyoshi:zundoko().
ドコ、ズン、ズン、ズン、ドコ、ズン、ドコ、ドコ、ズン、ズン、ズン、ズン、ズン、ドコ、キ・ヨ・シ!
ok

所感

なんか微妙な感じで圧倒的力不足を感じる。