数学研发论坛

 找回密码
 欢迎注册
查看: 3610|回复: 74

[游戏] 一个好玩的游戏

[复制链接]
发表于 2020-2-16 11:42:25 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?欢迎注册

x
本帖最后由 王守恩 于 2020-2-16 14:42 编辑

将0,1,1排成一排,2个1中间要有1个数,排法是1种:1,0,1。
将0,1,1,2,2排成一排,2个1中间要有1个数,2个2中间要有2个数,排法还是1种:1,2,1,0,2。
将0,1,1,2,2,3,3排成一排,2个1中间要有1个数,2个2中间要有2个数,2个3中间要有3个数,
排法是2种:0,2,3,1,2,1,3,1,3,1,2,0,3,2。
将0,1,1,2,2,3,3,4,4排成一排,2个1中间要有1个数,2个2中间要有2个数,2个3中间要有3个数,
2个4中间要有4个数,排法是3种:0,2,3,4,2,1,3,1,4,1,3,1,4,2,3,0,2,4,1,4,1,3,0,2,4,3,2。
我们约定:第1个数不比最后1个数大;第1个数是0时,第2个数不比最后1个数大。
a(1)=1
a(2)=1
a(3)=2
a(4)=3
a(5)=
a(6)=
...........
a(n)=?
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2020-2-25 17:58:26 | 显示全部楼层
本帖最后由 王守恩 于 2020-2-25 18:40 编辑

补充几句。
1、此题三十年前很流行,几乎每个小朋友都在做。遗憾的是,不是每对数都有答案,
本人在此基础上加了 1 个 0,能使每对数都有答案,可以连续做题目了。
2、做题目最好的方法是动手,希望来做这道题的网友,享受每次找到答案时的喜悦,
更在意信任自己一定能找到答案的信念,因为探索比结果更诱人。
3、向三十年前的老朋友:继承、方运加、刘京友、单墫.....,见过面与未见过面的,
我想你们!可好?还记得躲在教室角落里的我?

毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-2-29 11:18:06 | 显示全部楼层
王守恩 发表于 2020-2-25 17:58
补充几句。
1、此题三十年前很流行,几乎每个小朋友都在做。遗憾的是,不是每对数都有答案,
本人在此基 ...

确实是好玩的游戏,
但是我第一眼真没看懂,不知有什么好玩儿的.
我想,看不懂的不在少数.
近两天琢磨透了,我想改为摆扑克牌游戏或2支比赛队混合排座次等可能更有趣
下面是我的计算结果,
n=4的结果与楼主不同(多一个解)
与楼主切磋.

*** 王守恩一个好玩的游戏搜索 ***

n= 1
[ 1]  1, 0, 1,

Elapsed time 0.00

n= 2
[ 1], 1, 2, 1, 0, 2,

Elapsed time 0.00

n= 3
[ 1]  1, 3, 1, 2, 0, 3, 2,
[ 2]  0, 2, 3, 1, 2, 1, 3,

Elapsed time 0.00

n= 4
[ 1]  1, 3, 1, 4, 2, 3, 0, 2, 4,
[ 2]  1, 4, 1, 3, 0, 2, 4, 3, 2,
[ 3]  2, 4, 0, 2, 3, 1, 4, 1, 3,
[ 4]  0, 2, 3, 4, 2, 1, 3, 1, 4,

Elapsed time 0.00

点评

不是预想的数列,新颖,可利用专业特长进行理论分析,类似当年的排座问题  发表于 2020-2-29 17:43
谢谢 !a(4) = 4 是对的,这串数看来也不是1,1,2,3,5,8,....  发表于 2020-2-29 14:55
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-2-29 14:46:24 | 显示全部楼层
本帖最后由 aimisiyou 于 2020-2-29 15:09 编辑

其实就是多叉树裁枝查找过程,符合条件的继续往下分枝。可以编程序找到所有解。核心问题是k****k如何插入到a*b**c***c**b***a中,且K不能落在有数字的位置上。如2**2插入到3**435**4**5中去的结果有2**23**435**4**5,2*32*435**4**5,3**4352*42*5,3**435*24*25,3**435**4*252,3**435**4**52**2.可以看成在3**435**4**5前后均加上4个*,即得****3**435**4**5****,然后匹配连续四个字符,如果四个字符首尾都是*,则可将2**2替换插入,得到所有的结果。
lll.png
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-2-29 17:32:28 | 显示全部楼层
本帖最后由 dlpg070 于 2020-2-29 17:38 编辑
aimisiyou 发表于 2020-2-29 14:46
其实就是多叉树裁枝查找过程,符合条件的继续往下分枝。可以编程序找到所有解。核心问题是k****k如何插入到 ...


我已经搜索到n=9,但因为缺少理论支撑,不知是否有遗漏,不敢贴出,
我初步判断,我得到解是对的,可能有遗漏,但不可能有错.
我的结果显示这个数列没有被OEIS收录.
不妨贴出你的具体结果,我们讨论一下,互相印证.
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-2-29 19:18:19 | 显示全部楼层
本帖最后由 aimisiyou 于 2020-2-29 19:24 编辑

(defun ff (n)
(defun f (k)
  (setq str "")
  (repeat k
    (setq str (strcat "*" str))
   )
)
(setq str_n (strcat (itoa n) (f n) (itoa n)) strlst (list str_n) num (+ n n 1))
(while (> n 1)
   (setq vlst nil j 0 nk (length strlst))
   (while (< j nk)
       (setq en (nth j strlst))
       (setq str_n (strcat (f (+ n 1)) en (f (+ n 1))))
           (setq i 1)
           (while (< i (+ (strlen en) n 2))
              (if (= "*" (substr str_n i 1) (substr str_n (+ i n) 1))
                      (if (= i 1)
                             (progn
                     (setq str_new (strcat (itoa  (- n 1)) (substr str_n (+ i 1) (- n 1)) (itoa (- n 1)) (substr str_n (+ n 2))))
                                         (setq str_new (vl-string-right-trim "*" (vl-string-left-trim "*" str_new)))
                                         (if (<= (strlen str_new) num)
                         (setq vlst (cons str_new vlst))
                                          )
                              )
                         (progn
                     (setq str_new  (strcat (substr str_n 1 (- i 1)) (itoa (- n 1)) (substr str_n (+ i 1) (- n 1))
                           (itoa (- n 1))  (substr str_n (+ n i 1))))
                     (setq str_new (vl-string-right-trim "*" (vl-string-left-trim "*" str_new)))
                     (if (<= (strlen str_new) num)
                         (setq vlst (cons str_new vlst))
                                          )
                              )
                       )
                        )
                    (setq i (+ i 1))
             )
           (setq j (+ 1 j))
        )
     (setq strlst vlst)
         (setq n (- n 1))
  )
  (setq vvlst (mapcar '(lambda (x) (vl-string-translate "*" "0" x)) strlst))
)
FF
_ (ff 1)
("101")
_ (ff 2)
("20121" "12102")
_ (ff 3)
("2302131" "231213" "312132" "1312032")
_ (ff 4)
("240231413" "420324131" "41312432" "141302432" "234203141" "23421314" "131423024" "314132042")
_(ff 5)
("42352430151" "40352432151" "14135243205" "42502431513" "41512432503" "20425314135" "14153042352" "23425314105" "34253240151" "34513142502" "13145320425" "52402354131" "20524131543" "15104235243" "50141352432" "25324035141" "53141352402" "30523421514" "31513420524" "50234253141" "15123425304" "15103425324")
_ (ff 6)
("6014153642352" "6234253640151" "2612145360435" "4260245316135" "4161345236205" "4263245316105" "6420524631513" "3642352460151" "3640352462151" "2632453064151" "3161345026425" "6121524630543" "2612153460354" "2462354036151" "3046325421615" "1016425324635" "1316435024625" "1613504362542" "3062352416154" "6025324635141" "1612532463504" "2632503461514" "1416254230653" "2042635413165" "1416354032652" "2342635410165" "2462514136503" "1014635243265" "1314635240265" "3046351412652" "2062514136543" "1016352432654" "2362531416504" "3625324065141" "6250234653141" "1413564320526" "1415604235263" "4056141352632" "1014562342536" "3456314152602" "2562141536403" "5620425364131" "1015623425364" "3056314152642" "5610145362432" "2562304536141" "5613145362402" "3560324526141" "4151643052362" "4053642352161" "1415364235206" "4516142532603" "2452634053161" "5264205346131" "1015364235246" "5161245236403" "1516304532642" "4530643512162" "3450364251216" "5246205431613" "1514603542362" "1512642530463" "1510642532463" "3151364250246" "5016135423624" "5026325431614" "5316135420624" "5340635412162" "1510463524326" "2532463514106")
_
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-2-29 19:22:19 | 显示全部楼层
本帖最后由 aimisiyou 于 2020-2-29 19:31 编辑

_ (length (ff 1))
1
_ (length (ff 2))
2
_ (length (ff 3))
4
_ (length (ff 4))
8
_ (length (ff 5))
22
_ (length (ff 6))
70
_ (length (ff 7))
312
_(length (ff 8))
1576
_ (length (ff 9))
8052
_

点评

谢谢 aimisiyou!原来是无解的题目,一下子冒出这么多解来,真吓着我了,难怪我这手工是出不了的。  发表于 2020-2-29 19:51
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-2-29 20:39:27 | 显示全部楼层
有点小错误,最后插入0时,集合里面每个元素只存在两种情况,里面含有1个“*”,或者全部是数字(即2个1之间有1个数,2个2之间有2个数,2个n之间有n个数。 ),对于全是数字的情况,0可以放在头或者尾。

点评

瑕不掩瑜!我们约定:第1个数不比最后1个数大;第1个数是0时,第2个数不比最后1个数大。  发表于 2020-2-29 20:43
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-2-29 21:07:43 | 显示全部楼层
aimisiyou 发表于 2020-2-29 19:22
_ (length (ff 1))
1
_ (length (ff 2))

做的漂亮,
我比较了 前4项,数据一致
但有2个地方要修改,否则数列不一致.
根据王守恩约定:
1 首位的0要添加占位
2 许多首位比末尾大的要剔除 (去重复)
------------------------------------
aimisiyou 6#   与 dlpg070 3# 比较

_ (ff 1)
("101")               [ 1]  1, 0, 1,   

_ (ff 2)
("20121"   不符合约定                     
"12102")             [ 1], 1, 2, 1, 0, 2,

_ (ff 3)
("2302131" 不符合约定
"231213"  缺失 0     [ 2]  0, 2, 3, 1, 2, 1, 3,
"312132"  不符合约定
"1312032")           [ 1]  1, 3, 1, 2, 0, 3, 2,
           
_ (ff 4)
("240231413"          [ 3]  2, 4, 0, 2, 3, 1, 4, 1, 3,
"420324131" 不符合约定
"41312432"  不符合约定
"141302432"          [ 2]  1, 4, 1, 3, 0, 2, 4, 3, 2,
"234203141" 不符合约定
"23421314"  缺失 0   [ 4]  0, 2, 3, 4, 2, 1, 3, 1, 4,
"131423024"          [ 1]  1, 3, 1, 4, 2, 3, 0, 2, 4,
"314132042")不符合约定

点评

b比较大时,数据太多,为了便于比较,希望按约定修改  发表于 2020-2-29 21:20
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2020-2-29 21:27:04 | 显示全部楼层
dlpg070 发表于 2020-2-29 21:07
做的漂亮,
我比较了 前4项,数据一致
但有2个地方要修改,否则数列不一致.

我的结果:
an: 1,1,2,4,11,38,156,788,4158,---
看看去重复后是否一致?
有人讨论,很高兴.
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2020-7-15 19:54 , Processed in 0.083703 second(s), 26 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表