TL/1 でズンドコキヨシ

  • 2
    Like
  • 3
    Comment
More than 1 year has passed since last update.

ここしばらくズンドコキヨシのブームが来ているようですが、様々な言語での実装が出そろってきてしまったのでレトロなプログラミング言語 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

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

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