%I#5 2014年4月30日01:53:48

%S 0,1,3,2,6,8,7,4,5,15,14,19,20,22,16,21,17,9,10,18,11,12,13,39,41,40，

%电话：37,38,52,51,53,55,54,60,61,62,64,43,42,56,57,63,44,58,45,23,24,46,25，

%单位：26,27,47,59,48,28,29,49,30,31,32,50,33,34,35,36113112117118120

%自同构robl_car_cdr引起的自然数的N置换！作用于A014486编码的括号。

%H A.Karttunen，<A href=“网址：http://www.iki.fi/~kartturi/matikka/Nekomorphisms/gatomorf.htm“>Gatomorphisms（包括计算此序列的完整Scheme源代码）

%H<a href=“/index/Per#IntegerPermutation”>自然数排列序列的索引项</a>

%o（Scheme函数在列表结构上实现此自同构：）

%o（定义（robl_car_cdr！s）（cond（（not（pair？s）））

%o（定义（robl！s）（let（ex-car（cars）））（set-car！s（cddrs））（set-cdr！（cdr s）ex-car）（swap！（cdrs））

%o（定义（交换！s）（let（（ex-car（cars）））（set-car！s（cdr-s））（set-cdr！s ex-car）s））

%Y逆置换：A071659。A071655的car/cdr翻转共轭，即A071660（n）=A057163。另请参阅A071657、A071658。

%K nonn公司

%O 0.3

%安蒂·卡图内恩，2002年5月30日