プログラミング言語/Ruby/コードリーディング/しりとりゲーム の履歴(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• プログラミング言語/Ruby/コードリーディング/しりとりゲーム へ行く。
  • 1 (2007-10-16 (火) 12:28:15)
  • 2 (2007-10-16 (火) 12:31:03)
  • 3 (2007-10-16 (火) 18:34:14)
  • 4 (2007-10-29 (月) 16:00:53)
  • 5 (2007-10-29 (月) 18:17:58)
  • 6 (2007-10-29 (月) 18:17:58)

---

{{toc}}

しりとりゲーム†

「プログラミングに詳しい香具師ちょっと来い」の390で提示された要件をRubyで実装したものを説明する。

要件をまとめた練習問題はこちら

shiritori.rb

Ver.3 2007/05/15 構成を修正。ほか細々。†

Ver.2 2007/05/10 AutoPlayerのバグを修正。†

shiritori.rb インタフェース†

rdefs.rbというスクリプトによって作成。

Rands†

 module Rands
   def bool_rand
   def array_rand(array)
   def char_rand

GameMaster†

 class GameMaster
   def initialize
   def log_search(word)
   def log_size
   def dictionary_load(f)
   def entry(pl)
   def now
   def succ
   def each
   def twice?(word)
 private
   def turn_player

Player†

 class Player
   def initialize(id, dictionary=[], gm=nil)
   def game_master=(gm)
   attr_reader :id
   attr_accessor :dictionary

ManualPlayer†

 class ManualPlayer < Player
   include Rands
   def answer(before)
   def before_input
 private
   def read_answer(before, prompt, err_msg)

AutoPlayer†

 class AutoPlayer < Player
   include Rands
   def answer(before)
 private
   def think_answer(before)

クラス・モジュールごとの解説†

• GameMaster
• Player
• ManualPlayer
• AutoPlayer
• Rands

メインフロー(トップレベル)の解説†

リスト6-1 トップレベルの全体像†

USAGE = "ruby shiritori.rb DICT_FILE"

begin
  ##(省略)##
rescue RuntimeError => ex
  $stderr.puts "Error: #{ex.message}"
  $stderr.puts "Usage: #{USAGE}"
  exit(1)
end

しりとりゲームを処理しているメインの部分は後述する。

外枠のこの処理はそう複雑なものではない。Rubyの例外は最後まで 捕捉されないと、バックトレースを吐いてからプログラムを終了させる。 それはデバックに重宝するのだが、アプリケーションプログラムの終了 としてはちょっと見た目が悪い。そこで例外を捕捉して、エラーメッセージと 使用方法(USAGE)を言ってから、改めて死んでいる。

rescue文では、捕捉する例外クラスを指定しないと自動的にRuntimeError以下の クラスを捕捉するようにしてくれる。今回省略しなかったのは単に趣味だ。実行時の エラーだけを捕まえて、重大な例外は自前で異常終了させるぞ、という意思表示である。

ちなみに(名前で判るぞ、と言う方もおられるだろうが)$stderrは標準エラー出力を表す IOオブシェクトだ。似たようなものに$stdinや$stdoutがある。グローバル変数である。

リスト6-2 トップレベルのメイン部分(1)†

 raise "辞書ファイルが指定されていません" if ARGV.empty?
 gm = GameMaster.new
 gm.dictionary_load ARGF

Rubyプログラムを起動するときに与えたコマンドライン引数は、 ARGVという定数に、Arrayオブジェクトとして収まっている。

それと名前がよく似たARGFという定数は、少々特殊な擬似的なIOオブジェクトだ。 (擬似的とは … p ARGF.class #=> Object)

ARGFはUnixのフィルタプログラムを作成する際に理想的な機能を備えている。 即ち、コマンドライン引数があればそれをファイル名としてオープンしていき、 引数がなければ標準入力を読む。ARGFの場合、いくら引数があっても、ひとつの 連続したファイルを開いているかのように扱える。

しかし、このコードではその便利な特性を一つ潰してしまっている。 Array#empty?でARGVが空かどうかを事前にチェックしているからだ。 ただ、このプログラムで、標準入力を使う必要性があまり感じられなかった のでこういう措置を取った。sedかなにかで加工した辞書データを直接 流し入れたいという人は我慢して一旦ファイルにリダイレクトしてほしい。

リスト6-3 トップレベルのメイン部分(2)†

 pls = [ManualPlayer.new("あなた"), AutoPlayer.new("わたし")]
 pls.reverse! if Rands.bool_rand
 pls.each{|x| gm.entry x}

少し見づらいかもしれないが、plsに代入しているのはリテラルで生成された 配列だ。中身は見てのとおりである。

Array#reverse!は配列の順番を逆転させる。Array#reverseと違うのは、 前者は呼び出し元のオブジェクトを直接操作する(破壊的操作)が、後者は その操作が施された新しいオブジェクトが生成されて返されるところである。

Rands.bool_randは半々の確率で真偽どちらかを返す。つまり

 ... if Rands.bool_rand

は、「50%の確率で...を実行する」と読める。その後、順番にGameMasterに entryされているので、これはプレイヤーとコンピュータの先攻後攻をランダムで 決定しているのだ。

リスト6-4 トップレベルのメイン部分(3)†

 word = nil
 gm.each do |word|
   $stderr.puts "#{gm.now.id}の回答 ... #{word}"
 end

ここがしりとり勝負のループだ。wordにnilを代入しているのは、 しつこく言うが、Rubyのブロックローカルスコープ対策である。

リスト6-5 トップレベルのメイン部分(4)†

 if gm.now.id == "あなた"  #now.id ... Looser
   log = gm.log_search(gm.now.before_input)
   $stderr.print "「その言葉は #{log[0]} 回目に #{log[1]} が使用しています。"
   $stderr.puts "わたしの勝ちです。"
 else
   $stderr.puts "「まいりました！あなたの勝ちです。"
 end
 $stderr.puts "　今回のしりとりでは #{gm.log_size} 個の単語を使用しました。」"

GameMaster#nowはループの外では直前の回答者を返す。故に、決着直後の 「直前の回答者」はつまり「敗者」のことだ。

要件によれば、プレイヤーの負けかコンピュータの負けかで通知することが違うので、 GameMaster#entryするときに設定したidで分岐している。

プレイヤーが負けの場合、敗因の回答であるbefore_inputをlog_searchに かけて、必要な情報を得ている。

おわりに†

以上、長々とひとつのプログラムを解説してきた。

正直このプログラムには反省点も多々ある。 例えばGameMaster#nowなどである。 が、そのへんの改良は皆さんへの課題としておく。とか言って 都合よく締めておきたい。

また、人にモノを教える文章など書く機会がないので、 「ここわかりづれーよ」と思ったらスレがどこかで 吐き捨てて欲しい。 確実に改善できる保証はないが、可能な限り善処する。