情報領域演習第一：P演習

電気通信大学情報理工学域I類 (情報系)
2023年度後学期

課題E5

問題

オセロの操作を模倣するプログラムを以下のように作成せよ．

まず，オセロは8×8のマス目から成る盤面を用いる2人ゲームで，先手は黒，後手は白の丸い石を盤面に交互に置いていく．

初期盤面は以下のとおりであり，予め黒石が2つ，白石が2つ置かれている．

各プレイヤーは自分の番に，まだ石が置かれていないマスに自分の石を1つ置くが，その際，相手プレイヤーの石を自分の色の石で挟むように置かなければならない．挟む方向は縦・横・斜めのいずれでもよく，その中の複数でもよい．そして，挟まれた石の色を自分の石の色に変える (変えなくてはならない)．これで自分の番が終わる．もし，その規則を満たすように石を置けない場合は，パスをする．

まず，盤面は要素数 8×8 の2次元配列で表現する．空白のマスは0，黒石は1，白石は2で表す．盤面を表す配列は広域変数 \$board とする．左上隅のマスが\$board[0][0] であり，右上隅のマスが\$board[0][7]，左下隅が\$board[7][0]，右下隅が\$board[7][7] である．

そして，次のメソッドを用いて \$board の内容を変更する．

盤面を初期化する initialize_othello．これによって，初期盤面を作り，それを\$boardとする．初期盤面には所定の位置に黒石が2つ，白石が2つ置かれていることに注意する．
石を置く move_othello(p, i, j)．pはプレイヤーの番号で，先手は1，後手は2で表される．先手の石が黒石であり，後手の石が白石であることに注意する．i, j は配列の添え字を表し，0以上7以下の整数である．move_othello(p, i, j) によって，\$board[i][j] にプレイヤーpの石が置ける場合には，そこに置き，挟んだ石の色を変えた後の盤面を新たに \$board とする．\$board[i][j] にプレイヤーpの石が置けない場合や既に石が置かれている場合には，\$board を変更せず，他に何もしない．

入力仕様

pは整数1か2である．
iとj は0以上7以下の整数である．
initialize_othelloの実行後にのみ，move_othello(p, i, j)は実行される．

出力仕様

initialize_othello, move_othello(p, i, j) を実行したとき，実行後の \$board をそのまま出力する．

例

irb> require 'pp'
=> true
irb> pp initialize_othello
[[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, 2, 1, 0, 0, 0],
 [0, 0, 0, 1, 2, 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]]
=> [[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, 2, 1, 0, 0, 0], [0, 0, 0, 1, 2, 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]]
irb> pp move_othello 1, 3, 2
[[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, 1, 1, 0, 0, 0],
 [0, 0, 0, 1, 2, 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]]
=> [[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, 1, 1, 0, 0, 0], [0, 0, 0, 1, 2, 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]]
irb> pp move_othello 2, 2, 4
[[0, 0, 0, 0, 0, 0, 0, 0],
 [0, 0, 0, 0, 0, 0, 0, 0],
 [0, 0, 0, 0, 2, 0, 0, 0],
 [0, 0, 1, 1, 2, 0, 0, 0],
 [0, 0, 0, 1, 2, 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]]
=> [[0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 2, 0, 0, 0], [0, 0, 1, 1, 2, 0, 0, 0], [0, 0, 0, 1, 2, 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]]
irb> pp move_othello 1, 3, 5
[[0, 0, 0, 0, 0, 0, 0, 0],
 [0, 0, 0, 0, 0, 0, 0, 0],
 [0, 0, 0, 0, 2, 0, 0, 0],
 [0, 0, 1, 1, 1, 1, 0, 0],
 [0, 0, 0, 1, 2, 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]]
=> [[0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 2, 0, 0, 0], [0, 0, 1, 1, 1, 1, 0, 0], [0, 0, 0, 1, 2, 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]]
irb> pp move_othello 2, 4, 2
[[0, 0, 0, 0, 0, 0, 0, 0],
 [0, 0, 0, 0, 0, 0, 0, 0],
 [0, 0, 0, 0, 2, 0, 0, 0],
 [0, 0, 1, 2, 1, 1, 0, 0],
 [0, 0, 2, 2, 2, 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]]
=> [[0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 2, 0, 0, 0], [0, 0, 1, 2, 1, 1, 0, 0], [0, 0, 2, 2, 2, 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]]
irb> pp move_othello 1, 5, 4
[[0, 0, 0, 0, 0, 0, 0, 0],
 [0, 0, 0, 0, 0, 0, 0, 0],
 [0, 0, 0, 0, 2, 0, 0, 0],
 [0, 0, 1, 2, 1, 1, 0, 0],
 [0, 0, 2, 1, 1, 0, 0, 0],
 [0, 0, 0, 0, 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], [0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 2, 0, 0, 0], [0, 0, 1, 2, 1, 1, 0, 0], [0, 0, 2, 1, 1, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0]]
irb> pp move_othello 2, 2, 3
[[0, 0, 0, 0, 0, 0, 0, 0],
 [0, 0, 0, 0, 0, 0, 0, 0],
 [0, 0, 0, 0, 2, 0, 0, 0],
 [0, 0, 1, 2, 1, 1, 0, 0],
 [0, 0, 2, 1, 1, 0, 0, 0],
 [0, 0, 0, 0, 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], [0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 2, 0, 0, 0], [0, 0, 1, 2, 1, 1, 0, 0], [0, 0, 2, 1, 1, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0]]
irb> pp move_othello 2, 6, 6
[[0, 0, 0, 0, 0, 0, 0, 0],
 [0, 0, 0, 0, 0, 0, 0, 0],
 [0, 0, 0, 0, 2, 0, 0, 0],
 [0, 0, 1, 2, 1, 1, 0, 0],
 [0, 0, 2, 1, 1, 0, 0, 0],
 [0, 0, 0, 0, 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], [0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 2, 0, 0, 0], [0, 0, 1, 2, 1, 1, 0, 0], [0, 0, 2, 1, 1, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0]]

提出法

CEDにて，プログラムを作成したディレクトリで以下を実行せよ．

% ~ta001026/enshu1p/checker_e5.rb ファイル名

「Submission successfully completed.」と表示されれば，提出が完了したことになる．

[一覧に戻る]