[练习] 1A2B 猜数字游戏

rubyish

问题:

由 player 生成一个由0-9组成的四位数给电脑猜。
规则：可以由0开头，不能有重复数字，比如1123就不符合规则，0123符合规则。
电脑每猜一个数字，player 就根据这个数字给出几A几B。
直到电脑猜中（即 4A0B）为止。

计分规则：

• player 输入 4A0B为最后一步，而不是以已经知道答案那一步为最后一步。
• 电脑 1 步猜中，player 得到 0 分
• 电脑 2 步猜中，player 得到 1 分
• ...
• 电脑 8 步猜中，player 得到 7 分
  

rubyish

v1:

1. #!/usr/bin/ruby -w
   
2. $gather = ('0123' .. '9876').reject {|x| x =~ /(\d).*\1/ }
   
3. $score  = -1
   
4. 
   
5. def get snum, nscore
   
6.   loop do
   
7.     print "#{nscore} | #{snum} | AB = "
   
8.     sab = gets.scan(/^\s*(\d)\s*(\d)\s*$/).flatten
   
9.     return sab if sab.size == 2 && sab[0].to_i + sab[1].to_i <= 4
   
10.     puts "#{nscore} | wrong  AB !"
    
11.   end
    
12. end
    
13. 
    
14. def guess
    
15.   spick, apick = $gather.sample, []
    
16.   sA, sB = get spick, $score += 1
    
17.   $score -= 1 if sA == ?4
    
18.   for g in $gather
    
19.     sa  = (0 .. 3).select {|s| spick[s] == g[s] }.size
    
20.     sA.to_i == sa or next
    
21.     sab = (g.split(//) & spick.split(//)).size
    
22.     sab - sa == sB.to_i and apick << g
    
23.   end
    
24.   $gather = apick
    
25. end
    
26. 
    
27. while $gather.size > 1 do guess end
    
28. puts $gather.size >= 1 ?
    
29.   ($score += 1).to_s << " [ #{$gather[0]} ] score = #{$score}" :
    
30.   'you liar'

复制代码

lightsorrow

哪兒來的題目？看你發了好多了

rubyish

回复 3# lightsorrow

perl ban~
   

lightsorrow

回复 4# rubyish
你從perler轉ruby了？爲什麼？


   

rubyish

回复 5# lightsorrow

~
不，这不是真的，只是在我的红宝石练习的东西