登录
A072095型
自同构cdr_robl_cdr!引起的自然数置换!对由编码的括号执行操作A014486号.
6
0, 1, 3, 2, 7, 6, 8, 4, 5, 17, 16, 18, 15, 14, 20, 19, 21, 9, 10, 22, 11, 12, 13, 45, 44, 46, 42, 43, 48, 47, 49, 40, 39, 50, 41, 37, 38, 54, 53, 55, 52, 51, 57, 56, 58, 23, 24, 59, 25, 26, 27, 61, 60, 62, 28, 29, 63, 30, 31, 32, 64, 33, 34, 35, 36, 129, 128, 130, 127, 126
抵消
0,3
链接
A.卡图恩,异形性(包括计算该序列的完整Scheme程序)
黄体脂酮素
(在列表结构上实现此自同构的Scheme函数:)
(定义(cdr_robl_cdr!s)(条件((非(配对)))(非(对?(cdr!s)))
(定义(robl!s)(let((ex-car(cars)))(set-car!s(cddrs))(set-cdr!(cdr s)ex-car)(swap!(cdrs))
(定义(交换!s)(let((ex-car(car s)))(set-car!s(cdr s))(set-cdr!s ex-car)s))
交叉参考
关键词
非n
作者
安蒂·卡图恩2002年6月25日
状态
经核准的