|
| |
|
| A226062型 |
| a（n）=应用于n的二进制展开的游程中编码的分区的保加利亚纸牌运算。 |
|
16
|
|
|
|
0, 1, 3, 2, 13, 7, 6, 6, 11, 29, 15, 58, 9, 14, 4, 14, 19, 27, 61, 54, 245, 31, 122, 52, 27, 25, 30, 50, 25, 12, 12, 30, 35, 23, 59, 46, 237, 125, 118, 44, 235, 501, 63, 1002, 233, 250, 116, 40, 51, 19, 57, 38, 229, 62, 114, 36, 59, 17, 28, 34, 57, 8, 28, 62
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,3
|
|
|
评论
|
在“保加利亚纸牌游戏”中，一副纸牌或另一组有限的物体被分成一堆或多堆，“保加利亚操作”是从每堆纸牌中取出一张纸牌，并将其堆成一堆。最初提出的问题是：在什么条件下，生成的分区最终会达到一个固定点，即操作不会改变的堆集合。请参阅Martin Gardner参考和Wikipedia页面。
A037481号给出了这个序列的不动点，这些不动点是编码三角形分区的数字：1+2+3+…+n.（名词）。
也，A123975号回答了保加利亚纸牌游戏中n大小的纸牌有多少个伊甸园隔断，对应于作为此序列项不出现的值。
|
|
|
参考文献
|
马丁·加德纳（Martin Gardner），《数学巨著》（Colossal Book of Mathematics），第34章，保加利亚纸牌游戏和其他看似无止境的任务，第455-467页，W.W.Norton&Company，2001年。
|
|
|
链接
|
伊桑·阿金和莫顿·戴维斯，“保加利亚纸牌”，《美国数学月刊》92（4）：237-250。(1985).
|
|
|
配方奶粉
|
其他身份：
|
|
|
例子
|
5具有二进制扩展“101”，其运行长度为[1,1,1]，并转换为无序分区{1+1+1}。
6具有二进制扩展“110”，其运行长度为[1，2]（我们从右到左扫描位的运行），这些位被转换为非有序分区{1+2}。
7具有二进制扩展名“111”，其运行长度列表为[3]，它被转换为分区{3}。
在“保加利亚操作”中，我们从每个部分中减去一个（1个部分消失），然后添加一个与原来部分大小相同的新部分，以便总金额保持不变。
因此，从编码为5，{1,1,1}的分区开始，运算的形式为1-1，1-1，-1-（三个1都消失），但附加了第3部分，因为原来有三个部分，因此我们得到了一个新的分区{3}。因此a（5）=7。
从分区{3}->3-1和1得到一个新分区{1,2}，因此a（7）=6。
对于分区{1+2}->1-1和2-1，因此第一部分消失，第二部分现在是1，我们在其中添加了新的部分2，因为原来有两个部分，因此{1+2}保持为{1+2neneneep，并且我们已经到达了一个固定点，a（6）=6。
|
|
|
程序
|
（MIT/GNU方案）
（定义(A226062型n） （if（zero？n）n（ascpart_to_binxp（保加利亚运算（binexp_to_ascpart n）））））
（定义（保加利亚操作ascpart）
（定义（binexp_to_ascpart n）（let（runlist（reverse！（binexp->runcount1list n））
（define（ascpart_to_binexp ascpart）（runcount1list->binexp（reverse！（cons（car ascpPart）（map 1+（DIFF ascpard））））
（定义（binexp->runcount1list n）（if（零？n）（列表）（let loop（（n n）（rc（列表））（计数0）（prev bit（module n 2）））
（定义（运行计数列表->binexp列表）（let循环（（列表列表）（s 0）（状态1））（cond（（null？列表）s）（else（循环（cdr列表）（+（*s（导出2（汽车列表））））（*状态（-（导出2，汽车列表）1）））
（定义（DIFF a）（映射-（cdr a）（反向！（cdr（反向a））））
（定义（零件a）（cdr（反向！（左折（λ（磅数n）（cons（+n（汽车磅数）））（列表0）a）））
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
已批准
|
| |
|
|
