Implementation

プログラム化する際には、対象とする事象をどんなデータ構造で表すかをきちんと設計できれば、残りは自然と決まってくる。今回は既に、トランプのカードをどのように表現するか3パターンで考察してあるので、それらのうちからブラックジャックの作成に有利なものを採択すればい。

問題がさほど複雑ではないので、今回の場合3つのデータ構造にはっきりした優劣は見当たらず、どれを選んでも差し支えない。そこで採択する規準として「ハッシュの練習」を重視することにして、今回は3番目の「53個のハッシュを配列」にしたデータ構造を採択してプログラム化を進めよう。

必要な変数とメソッド

簡略化して設計したゲームを実現するために必要な部品を考えていこう。

変数

まずは、どんなデータをどういう変数に格納する必要があるかを考えるところから開始する。データの格納形式によって自ずとそれを処理するのに必要なメソッドが決まってくる。

シャッフルされたカードを保持する配列が必要なのは前回触れたとおりである。さらに、コンピュータに配られたカードと、プレイヤーに配られたカードを保持する配列も必要だろう。

あとは、コンピュータ、プレイヤ両者の得点を記録する変数も必要だが、これは単純な数値なので、とくに難しくないだろう。

メソッド

カードの配布と表示

カードを配るためにはまず、持ちカードを保存する配列と、その配列にカードを格納していく部分を作らなければならない。コンピュータが持っているカードの配列を com変数、プレイヤーの持っているカードの配列を player変数、にそれぞれ格納することにしよう。

持ちカードの合計点を計算するメソッド

コンピュータ、プレイヤー側、いずれも配列に全ての持ちカードが入っている。これらの数の部分を足して計算するメソッドが必要となる。計算のときの規則は以下のようになる。

問題となるのは、"A"の処理である。21を超過した場合に「"A"があった場合のみ10を引く」という処理が必要になる、しかも"A"が複数枚あった場合は、枚数分だけ「21を超過していたら10 引く」を繰り返す必要がある。ということで、合計点メソッドの要点は、

def point(arr)
  ace = 0		# "A"の枚数
  sum = 0		# 合計点
  for card in arr	# arr配列全ての要素に対して繰り返す
    n = card["n"]	# card["n"]で数を表すvalueが得られる
    case n		# nの値によって場合分け
    when "A"		# "A"ならば…
      ace += 1		# 枚数を1増やしておく
      sum += 11		# まずは11点として加算
    when "10", "J", "Q", "K"
      sum += 10		# 絵札と10は10点
    else		# それ以外(つまり2～9)はそのものを整数にして足す
      sum += n.to_i
    end # when終わり
  end # for終わり
  while sum > 21 && ace > 0 # 21より大きく、かつ、"A"の枚数が1以上なら
    sum -= 10		# 10を引く
    ace -= 1		# "A"を1つ使ったので減らす
  end
  sum			# 最後に合計点を呼び主に返す
end

人間にもう一枚引くか確認する部分

カードを配り終わったあとで、プレイヤーにもう一枚引くか確認する。これは、プレイヤーからの入力が y(es) である間繰り返せばよい。y ならプレイヤーの持ちカードに一枚追加する。

while true
  STDERR.print "もう一枚引きますか?(yかnで) "
  answer = gets
  if /^y/i =~ answer
    player << cards[cardNo+=1]
    puts "もう一枚引きます。引いたカードはこれです。"
    dispCard(player[-1])
  else
    break		# while true を抜ける
  end
end

コンピュータがもう一枚引くか決定する部分

プレイヤーが引き終わったあとで、コンピュータがさらに一枚引くか決める。これはコンピュータの持ちカードの得点が16以下である間繰り返す。

while point(com) <= 16
  puts "わたしはもう一枚引きます"
  com << cards[cardNo+=1]
end

結果を表示する部分

プレイヤー、コンピュータ、ともに必要なだけカードを引き直したら、最後に両者の手を全て表示して比べる。

puts "勝負!"
puts "わたしの手:"
for c in com		# コンピュータの手持ちカード全て繰り返す
  dispCard(c)
end
puts "あなたの手:"
player.each do |c|	# プレイヤーの手持ちカード全て繰り返す
  dispCard(c)
end

# 得点を比べる
printf("わたし %d : %d あなた", point(com), point(player))

以上でプログラムの骨格は揃った。これらを全て組み合わせてプログラムが完成する。

#!/usr/koeki/bin/ruby

def createCardsHashArray()
  card = Array.new		# 空の配列を作る
  for suit in ["ハート", "スペード", "ダイヤ", "クラブ"]
    card << {"suit" => suit, "n" => "A"}
    # ここで代入しているのがハッシュ
    2.upto(10) do |n|
      card << {"suit" => suit, "n" => n.to_s}
    end
    for n in ["J", "Q", "K"]
      card << {"suit" => suit, "n" => n}
    end
  end
  card				# 最後に card配列 を呼び主に返す
end

def shuffle(a)
  srand
  0.upto(a.length-1) do |i|
    j = rand(a.length)    # 交換相手をランダムに選ぶ
    w = a[i]
    a[i] = a[j]
    a[j] = w
  end
  a
end

def dispCard(card)
  printf("%s の %s\n", card["suit"], card["n"])
end


def point(arr)
  ace = 0		# "A"の枚数
  sum = 0		# 合計点
  for card in arr	# arr配列全ての要素に対して繰り返す
    n = card["n"]	# card["n"]で数が入る
    case n		# nの値によって場合分け
    when "A"		# "A"ならば…
      ace += 1		# 枚数を1増やしておく
      sum += 11		# まずは11点として加算
    when "10", "J", "Q", "K"
      sum += 10		# 絵札と10は10点
    else		# それ以外(つまり2～9)はそのものを整数にして足す
      sum += n.to_i
    end # when終わり
  end # for終わり
  while sum > 21 && ace > 0 # 21より大きく、かつ、"A"の枚数が1以上なら
    sum -= 10		# 10を引く
    ace -= 1		# "A"を1つ使ったので減らす
  end
  sum
end

# カードを作ってシャッフルしたものを cards配列に格納
cards=shuffle(createCardsHashArray)

# カードを数える変数。-1で初期化
cardNo=-1

# コンピュータの持ちカードを格納する配列
com=[]
com << cards[cardNo+=1]
com << cards[cardNo+=1]

# プレイヤーの持ちカードを格納する配列
player=[]
player << cards[cardNo+=1]
player << cards[cardNo+=1]

# 最初の手持ちを表示する
puts "わたしの手:"
# コンピュータの1枚目を表示
puts "  [ ??? ]"
# コンピュータの2枚目を表示
dispCard(com[1])	# 2枚目は com[1] に入っている
# プレイヤー側
puts "あなたの手:"
dispCard(player[0])
dispCard(player[1])

# プレイヤーが満足するまで引かせる
while true
  STDERR.print "もう一枚引きますか?(yかnで) "
  answer = gets
  if /^y/i =~ answer
    player << cards[cardNo+=1]
    puts "もう一枚引きます。引いたカードはこれです。"
    dispCard(player[-1])# [-1]は配列の最後の要素
  else
    break		# while true を抜ける
  end
end

# コンピュータが16以下なら引き続ける
while point(com) <= 16
  puts "わたしはもう一枚引きます"
  com << cards[cardNo+=1]
end

# いよいよ勝負
puts "勝負!"
puts "わたしの手:"
for c in com		# コンピュータの手持ちカード全て繰り返す
  dispCard(c)
end
puts "あなたの手:"
player.each do |c|	# プレイヤーの手持ちカード全て繰り返す
  dispCard(c)
end

# 得点を比べる
cp, pp = point(com), point(player)
printf("わたし %d : %d あなた\n", cp, pp)


if cp >= 22		# 22以上なら0点ということにしてしまう
  cp = 0		# (コンピュータ)
end

if pp >= 22		# 22以上なら0点ということにしてしまう
  pp = 0		# (プレイヤー)
end

if pp > cp		# コンピュータより点が高ければ
  puts "あなたの勝ちです。参りました!"
else			# そうでなければ(引き分け含む)
  puts "わたしの勝ちです。べろべろばあ～"
end

設計のプログラム化