ここしばらくズンドコキヨシのブームが来ているようですが、様々な言語での実装が出そろってきてしまったのでレトロなプログラミング言語 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
実行すると以下のように表示されるはず……なんですが、当時の処理系が動く環境を持っていないので本当に動くかわかりません。 資料を基に作った自作処理系で動作することは確かめたんですが。
ズン ドコ ドコ ズン ズン ズン ドコ ドコ ドコ ズン ズン ズン ズン ドコ キ・ヨ・シ!