#58640。2048我打的最大分，别人问，你到底最高多少啊。只有最高纪录分数看不到状态，干脆写个程序，告诉别人自己到底打到多少吧，我其实只记得自己是4096+1024，其他的分数忘记了，不过使用这个程序，很容易就分析出来了。
#2048是在合成的时候记录分数，比如4和4合成8，记录8分，类似这个样子。新出现的2或者4是不计分数的。所以可以通过递归，获得块数合成时候的分数。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48 |
#coding: UTF-8def total(n) #假设全部的数都是2，2的n次方得到的分数，比如n=10，2**10=1024得到的纪录分数 return
4 if
n == 2 2
* total( n - 1
) + 2 ** nenddef total_plus(n) #随机2或4，比例9:1，获得的分数。 i = 0 (2
** n / 2).times { i += 1
if rand(10) == 0} if
total(n) >= i * 4 total(n) - i * 4 else 0 endend#{2=>4, 3=>16, 4=>48, 5=>128, 6=>320, 7=>768, 8=>1792, 9=>4096, 10=>9216, 11=>20480, 12=>45056, 13=>98304, 14=>212992, 15=>458752, 16=>983040} # 只有2的时候2**n对应的的得分@h
= {}(2..16).each
{|n| @h[n] = total_plus(n)} #据传说，不能大于2**16次方puts @h
# 做一个对应表，2的n次方对应的可能得分数def max_n(score) #录入一个分数，小于此分数的最大对应n，比如得到5124分，查表得到最大可能的n是9，也就是说盘面最大是2**9=512。 temp = [] @h.each
do |k, v| temp << k if
v <= score end temp.max enddef score_to_n(score, temp = []) #输入记录，反查组成此记录的n值数组 max = max_n(score) return
temp << @h.key(score) if
@h.key(score) == max #score在hash表内的时候，直接返回 return
temp if @h[max].zero? #因为有4存在，所以可能会有0，去除0，要不后面就会报错 div = score.divmod(@h[max]) #求余数 div[0].times {temp << max } #多个的时候，写入temp多个n score_to_n(div[1], temp) temp.compact endscore = 58640p score_to_n(score).map {|n| 2
** n} # 最终的状态集合，可以检查一下是否和自己的状态一致p [score, score_to_n(score).map {|n| @h[n] } .inject(:+)] #录入分数和校验分数的比较，可能不一样噢 |
原文地址：http://www.cnblogs.com/qqrrm/p/3746611.html
