OMakeでズンドコキヨシ

  • 0
    いいね
  • 0
    コメント
    この記事は最終更新日から1年以上が経過しています。

    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
    

    です。