数当

kazuate.rb

#!/usr/bin/env ruby
# citation from まつもとら, "ネットを支えるオープンソース", 角川学芸出版, 2014
## 若干の変更あり

def genprob
  a = ''
  b = '123456789'
  4.times do
    i = rand(b.length)
    a += b[i..i]
    b[i..i] = ''
  end
  a
end

def judge(ans, str)
  hit = blow = 0
  4.times do |i|
    4.times do |j|
      next unless ans[i] == str[j]
      if i == j
        hit += 1
      else
        blow += 1
      end
    end
  end
  [hit, blow]
end

def kazuate
  ans = genprob
  10.times do
    print 'your guess? '
    str = gets
    hit, blow = judge(ans, str)
    if hit == 4
      puts 'you win!'
      return
    end
    puts "hit = #{hit}, blow = #{blow}"
  end
  puts "you lose! answer = #{ans}."
end

kazuate