ズンドコきよし with Elixir

zundoko.exs

defmodule Zundoko do
  @zun "ズン"
  @doko "ドコ"

  @kiyoshi "キ ・ ヨ ・ シ!"

  def run() do
    gen_zundoko()
    |> show_list
    |> call
  end
  
  def call([@zun, @zun, @zun, @zun, @doko]) do
    IO.puts @kiyoshi
  end

  def call([_head | tail] = list) when length(list) == 5 do
    tail ++ gen_zundoko()
    |> show_list
    |> call
  end

  def call(list) do
    list ++ gen_zundoko()
    |> show_list
    |> call
  end

  def show_list(list) do
    IO.inspect list
    list
  end

  def gen_zundoko do
    zundoko = [@zun, @doko] |> Enum.random
    [zundoko]
  end

end

Zundoko.run()