[編集モード] リバーシ（１人用）

CPUと対戦するリバーシです。常にα-β法で３手読みます。

# エディタ上で実行する場合は描画先の設定は不要
# 『#nako3_canvas_1』へ描画開始。
定数の無は０
定数の黒は１
定数の白は２
定数の盤サイズは8
定数の人数は２
定数の黒手番は１
定数の白手番は２
定数の方向位置は[ _
[-1,-1],[-1,0],[-1,1], _
[0,-1],[0,1], _
[1,-1],[1,0],[1,1] _
]
定数の探索深度は3
人間番は１

手番は０
連続パス人数は０
盤状態は、[]

盤縦横は200
盤位置は[20,20]
セル縦横は盤縦横/盤サイズの整数部分
盤縦横はセル縦横*盤サイズ
ステータス内容は[]
ステータス表示行数は１２
ステータス行高さは１６
ステータス位置は[盤位置[0]＋盤縦横＋８, 盤位置[1]＋盤縦横－（ステータス表示行数＊（ステータス行高さ＋１））]
手番位置は[盤位置[0], 盤位置[1]＋盤縦横＋2]

定数の盤スコアは、[ _
 [ 120, -20, 20, 5, 5, 20,-20,120], _
 [ -20, -40, -5, -5, -5, -5, -40, -20], _
 [ 20, -5, 15, 3, 3, 15, -5, 20], _
 [ 5, -5,  3, 3, 3, 3, -5, -5], _
 [ 5, -5,  3, 3, 3, 3, -5, -5], _
 [ 20, -5, 15, 3, 3, 15, -5, 20], _
 [ -20, -40, -5, -5, -5, -5, -40, -20], _
 [ 120, -20, 20, 5, 5, 20,-20,120] _
]

●初期化とは
　もし、盤サイズ＝８＆＆人数＝２ならば、
　　盤状態は、[ _
　　  [0,0,0,0,0,0,0,0], _
　　  [0,0,0,0,0,0,0,0], _
　　  [0,0,0,0,0,0,0,0], _
　　  [0,0,0,1,2,0,0,0], _
　　  [0,0,0,2,1,0,0,0], _
　　  [0,0,0,0,0,0,0,0], _
　　  [0,0,0,0,0,0,0,0], _
　　  [0,0,0,0,0,0,0,0] _
　　]
　違えば、
　　「初期の盤面が解りません。サイズを８にして、人数を２人にしてください」を言う
　　戻る
　ここまで
　手番は０
　連続パス人数は０
　描画中キャンバスをマウス押した時には
　　もし、(マウスX≧盤位置[0])&&(マウスX≦盤位置[0]+盤縦横)ならば、
　　　もし、(マウスY≧盤位置[1])&&(マウスY≦盤位置[1]+盤縦横)ならば、
　　　　セルXは(マウスX-盤位置[0])/セル縦横+1の整数部分
　　　　セルYは(マウスY-盤位置[1])/セル縦横+1の整数部分
　　　　[セルX,セルY]をセルクリック
　　　ここまで
　　ここまで
　ここまで

ここまで

●開始とは
　画面表示する
　手番進む
ここまで

●(盤状態から手番の)盤スコア計算とは
　スコアは0
　Yを1から盤サイズまで繰り返す
　　Xを１から盤サイズまで繰り返す
　　　駒は盤状態[Y-1][X-1]
　　　もし、駒が無でなければ
　　　　もし、駒が手番ならば
　　　　　スコア＝スコア＋盤スコア[Y-1][X-1]
　　　　違えば、
　　　　　スコア＝スコア－盤スコア[Y-1][X-1]
　　　　ここまで
　　　ここまで
　　ここまで
　ここまで
　スコアを戻す
ここまで

●画面表示とは
　[0, 0, 描画中キャンバス["width"], 描画中キャンバス["height"]]に描画クリア
　盤状態を盤表示
　ステータス内容をステータス描画
　手番表示
ここまで

●手番表示とは
　[手番位置[0], 手番位置[1], 描画中キャンバス["width"]－手番位置[0], 描画中キャンバス["height"]－手番位置[1]]に描画クリア
　もし、手番が人間番ならば、
　　情報は「今はあなたの番です」
　違えば、
　　情報は「今はわたしの番です」
　ここまで
　黒色に塗り色設定
　黒色に線色設定
　[手番位置[0], 手番位置[1]+ステータス行高さ-2]に情報を文字描画
ここまで

●(ステータスを)ステータス描画とは
　[ステータス位置[0], ステータス位置[1], 描画中キャンバス["width"]－ステータス位置[0], 描画中キャンバス["height"]－ステータス位置[1]]に描画クリア
　もし、(ステータスの要素数)が０ならば、
　　戻る
　ここまで
　黒色に塗り色設定
　黒色に線色設定
　Iで1から(ステータスの要素数)まで繰り返す
　　内容はステータス[I-1]
　　[ステータス位置[0], ステータス位置[1]+I*ステータス行高さ]に内容を文字描画
　ここまで
ここまで

●(盤状態を)盤表示とは
　[盤位置[0], 盤位置[1], 盤縦横, 盤縦横]に描画クリア
　緑色に塗り色設定
　黒色に線色設定
　１に線太さ設定
　[盤位置[0], 盤位置[1], 盤縦横, 盤縦横]へ四角描画
　白色に線色設定
　Iを1から盤サイズ-1まで繰り返す
　　[盤位置[0]+I*セル縦横, 盤位置[1]]から[盤位置[0]+I*セル縦横, 盤位置[1]+盤縦横]へ線描画
　　[盤位置[0], 盤位置[1]+I*セル縦横]から[盤位置[0]+盤縦横, 盤位置[1]+I*セル縦横]へ線描画
　ここまで
　Yを1から盤サイズまで繰り返す
　　Xを１から盤サイズまで繰り返す
　　　駒は盤状態[Y-1][X-1]
　　　もし、駒が無でなければ、
　　　　もし、駒が黒ならば、
　　　　　黒色に塗り色設定
　　　　　白色に線色設定
　　　　違えば、
　　　　　黒色に線色設定
　　　　　白色に塗り色設定
　　　　ここまで
　　　　[盤位置[0]+X*セル縦横-セル縦横/2, 盤位置[1]+Y*セル縦横-セル縦横/2]にセル縦横/2-2の円描画
　　　ここまで
　　ここまで
　ここまで
ここまで

●(MSGを)ステータス表示とは
　もし、(ステータス内容の要素数)がステータス表示行数ならば、
　　ステータス内容の0を配列切取する
　ここまで
　ステータス内容にMSGを配列追加する
　ステータス内容をステータス描画
ここまで

●(仮盤状態にセル位置を自色で)仮打ちとは
　ゲットは０
　Iを１から方向位置の要素数まで繰り返す
　　方向は方向位置[I-1]
　　現位置は[セル位置[0], セル位置[1]]
　　オンの間、
　　　現位置[0]=現位置[0]+方向[0]
　　　現位置[1]=現位置[1]+方向[1]
　　　もし、現位置[0]＜１｜｜現位置[0]＞盤サイズ｜｜現位置[1]＜１｜｜現位置[1]＞盤サイズならば、
　　　　抜ける
　　　ここまで
　　　駒は仮盤状態[現位置[1]-1][現位置[0]-1]
　　　もし、駒が無ならば、
　　　　抜ける
　　　ここまで
　　　もし、駒が自色ならば、
　　　　オンの間、
　　　　　現位置[0]=現位置[0]-方向[0]
　　　　　現位置[1]=現位置[1]-方向[1]
　　　　　もし、現位置[0]＝セル位置[0]＆＆現位置[1]＝セル位置[1]ならば、
　　　　　　抜ける
　　　　　ここまで
　　　　　ゲットはゲット＋１
　　　　　仮盤状態[現位置[1]-1][現位置[0]-1]は自色
　　　　ここまで
　　　　抜ける
　　　ここまで
　　ここまで
　ここまで
　ゲットを戻す
ここまで

●(セル位置に手番を)駒置くとは
　もし、盤状態[セル位置[1]-1][セル位置[0]-1]＝無でなければ、
　　「駒のある所には置けません」をステータス表示
　　オフで戻る
　ここまで
　仮盤状態は盤状態を配列複製
　ゲット数は仮盤状態にセル位置を手番で仮打ち
　もし、ゲット数＞０ならば、
　　盤状態は仮盤状態
　　盤状態[セル位置[1]-1][セル位置[0]-1]は手番
　　盤状態を盤表示
　　オンで戻る
　ここまで
　「駒を取れないところには置けません」をステータス表示
　オフで戻る
ここまで

●(セル位置を)セルクリックとは
　もし、手番が人間番ならば、
　　結果はセル位置に人間番を駒置く
　　もし、結果ならば、
　　　手番進む
　　ここまで
　違えば、
　　「あなたの順番ではありません」をステータス表示
　ここまで
ここまで

●手番進むとは
　画面表示する
　もし、盤状態を終局判定ならば、
　　終局処理
　　戻る
　ここまで
　手番は手番＋１
　もし、手番＞人数ならば
　　手番＝１
　ここまで
　手番表示
　０秒後には
　　もし、手番が人間番ならば、
　　　人間思考実行
　　違えば、
　　　CPU思考実行
　　ここまで
　ここまで
ここまで

●人間思考実行とは
　もし、盤状態に手番がパス判定ならば、
　　「置くところが無いみたいですね。」をステータス表示
　　「パスを受け付けました」をステータス表示
　　パス処理
　違えば、
　　連続パス人数は０
　　// 人間の操作待ち
　ここまで
ここまで

●CPU思考実行とは
　もし、盤状態に手番がパス判定ならば、
　　「置くところが見当たらないです。」をステータス表示
　　「パスします」をステータス表示
　　パス処理
　違えば、
　　連続パス人数は０
　　０秒後には、
　　　CPU手番
　　ここまで
　ここまで
ここまで

●パス処理とは
　連続パス人数は連続パス人数＋１
　もし、連続パス人数≧人数ならば、
　　「全員がパスしたので終わりです。」をステータス表示
　　０秒後には
　　　終了処理
　　ここまで
　違えば、
　　手番進む
　ここまで
ここまで

●終局処理とは
　「空いている升が無いので終わりです。」をステータス表示
　０秒後には
　　終了処理
　ここまで
ここまで

●(仮盤状態を)終局判定とは
　Yを1から盤サイズまで繰り返す
　　Xを１から盤サイズまで繰り返す
　　　駒は仮盤状態[Y-1][X-1]
　　　もし、駒が無ならば、
　　　　オフで戻る
　　　ここまで
　　ここまで
　ここまで
　オンで戻る
ここまで

●(仮盤状態に自色が)パス判定とは
　一時盤状態は仮盤状態を配列複製
　セル位置は[0, 0]
　Yを1から盤サイズまで繰り返す
　　Xを１から盤サイズまで繰り返す
　　　駒は仮盤状態[Y-1][X-1]
　　　セル位置[0]はX
　　　セル位置[1]はY
　　　もし、駒が無ならば、
　　　　仮ゲット数は一時盤状態にセル位置を自色で仮打ち
　　　　もし、仮ゲット数＞０ならば
　　　　　オフで戻る
　　　　ここまで
　　　ここまで
　　ここまで
　ここまで
　オンで戻る
ここまで

●終了処理とは
　カウントは[0,0,0]
　Yを1から盤サイズまで繰り返す
　　Xを１から盤サイズまで繰り返す
　　　駒は盤状態[Y-1][X-1]
　　　カウント[駒]はカウント[駒]+1
　　ここまで
　ここまで
　もし、カウント[黒]＝カウント[白]ならば、
　　「引き分けに終わりました。」をステータス表示
　ここまで
　もし、カウント[黒]＞カウント[白]ならば、
　　「黒の勝ちです。」をステータス表示
　ここまで
　もし、カウント[黒]＜カウント[白]ならば、
　　「白の勝ちです。」をステータス表示
　ここまで
　「お疲れさまでした」をステータス表示
　描画中キャンバスをマウス押した時には
　ここまで
ここまで

●CPU手番とは
　次手は盤状態に手番で探索深度までAB法
　もし、次手[0]＝０ならば、
　　「手がおかしいです」を表示する
　　次手を表示する
　　戻る
　ここまで
　結果は次手に手番を駒置く
　もし、結果ならば、
　　手番進む
　違えば、
　　「最善手だと思った手が失敗しました」を表示する
　　次手を表示する
　ここまで
ここまで

●(仮盤状態に仮手番で探索深度まで)AB法とは
　自手番は仮手番
　次手は[0,0]
　手候補リストは仮盤状態に自手番で手候補取得
　もし、(手候補リストの要素数)が０ならば、
　　次手で戻る
　ここまで
　次手番は仮手番＋１
　もし、次手番＞人数ならば、
　　次手番は１
　ここまで
　下限は-99999
　上限は99999
　Nを1から手候補リストの要素数まで繰り返す
　　手候補は手候補リスト[N-1]
　　スコアは手候補["事後"]に次手番で探索深度の自手番を[下限, 上限]とAB
　　もし、スコア＞下限ならば
　　　下限はスコア
　　　次手は手候補["手"]
　　ここまで
　　もし、下限≧上限ならば、
　　　抜ける
　　ここまで
　ここまで
　次手で戻る
ここまで

●(仮盤状態に仮手番で現深度の自手番を閾値と)ABとは
　もし、現深度が０ならば、
　　仮盤状態から自手番の盤スコア計算で戻る
　ここまで
　手候補リストは仮盤状態に自手番で手候補取得
　もし、(手候補リストの要素数)が０ならば、
　　仮盤状態から自手番の盤スコア計算で戻る
　ここまで
　次手番は仮手番＋１
　もし、次手番＞人数ならば、
　　次手番は１
　ここまで
　次深度は現深度－１
　下限は閾値[0]
　上限は閾値[1]
　もし、仮手番が自手番ならば、
　　Nを1から手候補リストの要素数まで繰り返す
　　　手候補は手候補リスト[N-1]
　　　スコアは手候補["事後"]に次手番で次深度の自手番を[下限, 上限]とAB
　　　もし、スコア＞下限ならば
　　　　下限はスコア
　　　ここまで
　　　もし、下限≧上限ならば、
　　　　抜ける
　　　ここまで
　　ここまで
　　下限で戻る
　違えば、
　　Nを1から手候補リストの要素数まで繰り返す
　　　手候補は手候補リスト[N-1]
　　　スコアは手候補["事後"]に次手番で次深度の自手番を[下限, 上限]とAB
　　　もし、スコア＜上限ならば
　　　　上限はスコア
　　　ここまで
　　　もし、下限≧上限ならば、
　　　　抜ける
　　　ここまで
　　ここまで
　　上限で戻る
　ここまで
ここまで

●(仮盤状態に自色で)手候補取得とは
　手候補リストは[]
　一時盤状態は仮盤状態を配列複製
　セル位置は[0, 0]
　Yを1から盤サイズまで繰り返す
　　Xを１から盤サイズまで繰り返す
　　　駒は仮盤状態[Y-1][X-1]
　　　セル位置[0]はX
　　　セル位置[1]はY
　　　もし、駒が無ならば、
　　　　仮ゲット数は一時盤状態にセル位置を自色で仮打ち
　　　　もし、仮ゲット数＞０ならば
　　　　　手候補は{}
　　　　　手候補["手"]はセル位置
　　　　　手候補["ゲット"]は仮ゲット数
　　　　　手候補["スコア"]は(一時盤状態から自色の盤スコア計算)
　　　　　手候補["事後"]は一時盤状態
　　　　　手候補リストに手候補を配列追加
　　　　　一時盤状態は仮盤状態を配列複製
　　　　　セル位置は[0, 0]
　　　　ここまで
　　　ここまで
　　ここまで
　ここまで
　手候補リストで戻る
ここまで

初期化する
開始する

デバッグ × キャンバス: 幅 × 高

🍯 なでしこ3貯蔵庫

[編集モード] リバーシ（１人用）

素材のアップロード