2048 是一款益智游戏,只需要用方向键让两两相同的数字碰撞就会诞生一个翻倍的数字,初始数字由 2 或者 4 构成,直到游戏界面全部被填满,游戏结束。
...0.2,0.7-(i-1)*0.2,font=2,family="Arial",label=e$m[i,j],cex=2)
15 }
16 }
17 }
18 }
19 #初次运行游戏...0,15)),nrow=4)
23 e$m <- mt[sample(4),sample(4)]
24 draw_bg()
25 draw_num()
26 }
27
28 #移除矩阵数字间的0...70 new_mt <- function(){
71 e$m[sample(which(e$m==0),1)] <- sample(c(2,4),1)
72 }
73
74 #检查是否游戏失败...参考资料
张丹.R的极客理想:http://www.kuqin.com/shuoit/20140704/340987.html