LoginSignup
2

More than 5 years have passed since last update.

TL/1 でズンドコキヨシ

Posted at

ここしばらくズンドコキヨシのブームが来ているようですが、様々な言語での実装が出そろってきてしまったのでレトロなプログラミング言語 TL/1 で書いてみました。

VAR ZUN, R
BEGIN
  ZUN := 0
  REPEAT
    R := LSR(RND(4)-1)
    IF R = 0 THEN {
      WRITE(0: "ズン ")
      IF ZUN < 5 THEN ZUN := ZUN+1
    }
    ELSE {
      WRITE(0: "ドコ ")
      IF ZUN # 4 THEN ZUN := 0
    }
  UNTIL R=1 .AND. ZUN=4
  WRITE(0: "キ・ヨ・シ!")
END

実行すると以下のように表示されるはず……なんですが、当時の処理系が動く環境を持っていないので本当に動くかわかりません。 資料を基に作った自作処理系で動作することは確かめたんですが。

ズン ドコ ドコ ズン ズン ズン ドコ ドコ ドコ ズン ズン ズン ズン ドコ キ・ヨ・シ!

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
2