チンチロリン

「いいじゃねえか、まだサイを投げたわけじゃねぇ」

（2020年4月記事の再掲）

サイコロを使ったかんたんなゲーム、「チンチロリン」を作ってみよう。
まずはサイコロを３個ふる。3個のサイコロはそれぞれ、A、B、Cとする。

A=RND(6)+1
B=RND(6)+1
C=RND(6)+1
PRINT A;" ";B;" "C

これで3個のサイコロの出目が表示される。 つぎにこの出目がどのような役なのかを判定する。
もっとも単純なのはIF文をくりかえす方法だろう。たとえば、

IF A=="■" AND B=="■" AND C=="■" THEN ～

という命令文（■には数字がはいる）を６×６×６＝１８６行くりかえせばいい。
あるいは、

D=A*100+B*10+C

と3個の出目を3ケタの数字におきかえて、READ文を使って判定させる方法もあるだろう。だが、もっと楽なやりかたはないだろうか。それが今回のテーマ、「条件分岐」である。

まず、3個の目のでかたのうち、もっとも特殊な「ゾロ目」について判定する。

IF A==B AND A==C THEN PRINT "ｿﾞﾛﾒ":END

命令文の最後にENDをつけたのは、これ以降の判定をしないため。GOTO～におきかえてもよい。つぎに3個のうち2個が同じ場合を判定する。

IF A==B THEN PRINT "ﾃﾞﾒ = ";C:END
IF A==C THEN PRINT "ﾃﾞﾒ = ";B:END
IF B==C THEN PRINT "ﾃﾞﾒ = ";A:END

AとBがそろった場合Cが出目、AとCがそろった場合Bが出目、BとCがそろった場合Aが出目になる。たとえば、４、４、２と出た場合、２が出目となる。４、４、４の場合はすでに先の分岐ではじかれているので、この分岐にはこない。４、４、４はゾロ目として判定され、出目４とは判定されない。

つぎに「４５６」について判定する。これは、２×２×２＝８パターンしかないので、IF文を８行書いてもよいだろう。だがもっと楽な方法がある。

IF A+B+C==15 THEN PRINT "ｼｺﾞﾛ":END

すでに、５、５，５のパターン、６、６、３のパターンは先の分岐ではじかれているため、この分岐にはこない。したがってこの分岐で合計数が１５になるのは、４＋５＋６のパターンしかない。同様に「１２３」については、

IF A+B+C==6 THEN PRINT "ﾋﾌﾐ":END

で判定できる。さて、ここまでの分岐ではじかれていない目については「出目なし」と判定することができる。

PRINT "ﾒﾅｼ" :END

これですべての目の出方について判定することができた。ただし、「チンチロリン」は目が出ない場合、３回までサイコロをふることができる。そこでサイコロをふる回数を変数FURUに代し、このようにプログラムを組んでみた

FURU=0
@SAIOFURU
IF FURU==3 THEN PRINT "ﾒﾅｼ":END
A=RND(6)+1
B=RND(6)+1
C=RND(6)+1
PRINT A;" ";B;" "C
IF A==B AND A==C THEN PRINT "ｿﾞﾛﾒ":END
IF A==B THEN PRINT "ﾃﾞﾒ = ";C:END
IF A==C THEN PRINT "ﾃﾞﾒ = ";B:END
IF B==C THEN PRINT "ﾃﾞﾒ = ";A:END
IF A+B+C==15 THEN PRINT "ｼｺﾞﾛ":END
IF A+B+C==6 THEN PRINT "ﾋﾌﾐ":END
FURU=FURU+1:GOTO @SAIOFURU



ダイレクトモードにして、

RUN　（エンター）

で起動する。2回目からは、十字キー上、Ⓐボタンで起動する。

ヨット １５

　基本部分のヨットを何回かくりかえして、この思考ルーチンの最高点（変数HS）と平均点（変数AV）を見てみよう。

　初期設定の前にプログラム追加。

　終了サブルーチンの後に追加。

　サンプル採取100回。最高点77、平均点54。

　もう100回、最高点79、平均点50。

ヨット １４

　つづいて「どのサイコロを振りなおすか」の思考ルーチン(@think)を作る。

　シンプルに大きい目を優先して出目を形成する。


　動作確認。１回目、55点。

２回目、74点。


３回目、62点。


4回目、54点。


5回目、67点。


　正しく動作している。

ヨット １３

　得点選択の思考ルーチンをシンプル化。forループ３つにまとめてみた。

　動作確認。

　目がそろわなくて「2」が1個のとき、コンピュータは「1」を選択して０を得点した。改善の余地があるかもしれない。

　試行錯誤のすえ、思考ルーチンはやはりif文羅列のままにしておいた。こちらのほうが後々ヨットセクションに対応できるだろう。

ヨット １２

　仕切り直し。ラウンド１、サイコロの目「1,5,6,5,6」でコンピュータはカテゴリ「1」を選択し1得点。

　ラウンド２、サイコロの目「5,5,4,5,4」でコンピュータはカテゴリ「5」を選択し15得点。

　ラウンド３、サイコロの目「3,4,1,1,4」でコンピュータはカテゴリ「2」を選択し0得点。

　ラウンド４、サイコロの目「6,6,6,2,2」でコンピュータはカテゴリ「6」を選択し18得点。

　ラウンド５、サイコロの目「5,2,5,4,3」でコンピュータはカテゴリ「3」を選択し3得点。

　ラウンド６、サイコロの目「6,4,5,4,1」でコンピュータはカテゴリ「4」を選択し8得点。

　合計45点。動作正常。