OMakeでズンドコキヨシ

OMakeは高級すぎて面白くないなぁ。

kiyoshi.om

kiyoshi(kc) =
  cur = $(eq $(mod $(random), 2), 0)
  if $(cur)
    print($"ズン")
    kiyoshi($(if $(eq $(kc), 4), 4, $(add $(kc), 1)))
  else
    print($"ドコ")
    if $(eq $(kc), 4)
      print($"キ・ヨ・シ！")
    else
      kiyoshi(0)

kiyoshi(0)

実行方法は、

$ osh kiyoshi.om

です。