#来自在线整数序列百科全书的问候!1,6,1,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,6,1,1,6,1,1,6,1,6,1,6,1,6,1,1,1,1,1,1,1,1 36,24,24,24,36,35,36,34,36,35,36,34,25,36,30,25,25,36,30,36,35,36,30,25,25,25,36,25,36,25,36,25,36,25,36,25,36,25,36,25,36,25,36,25,36,25,36,25,36,30,25,36,30,45,,120 %N A071660由自同构robl_car_cdr诱导的自然数置换!由括号a0.a0编码,加纯性(包括计算该序列的完整方案源) %H A071660自然数排列序列的索引项%o A071660(在列表结构上实现此自同构的Scheme函数:) %o A071660(define(robl_car_cdr!s) (条件((不是(配对?s) ))(不是(配对?(cdr s))(交换!s) )(其他(罗布!s) (机器人汽车!(汽车))(机器人汽车!(cdr s)))s) %o A071660(定义(robl!s) (let((ex car(s car)))(设置汽车!s(cddr s))(设置cdr!(cdr s)ex car)(交换!交换cdr)!s) s)) %o A071660(定义(交换!s) (let((ex car(s car)))(设置汽车!s(cdr s))(设置cdr!s ex car)s)) %Y A071660逆排列:A071659。a0.716(a0.716,0.715)的共轭(a0.715)。另请参阅A071657、A071658。 %K A071660 nonn %O A071660 0,3 %A A071660 Antti Karttunen,2002年5月30日 %K A071660 nonn %O A071660 0 0,3 %A A071660 %2002年5月30日