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

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

%电话：49,50,54,55,57,58,59,61,62,63,64,26,27,23,25,24,38,37,42,44,47,51,53，

%U 56,60,29,28,30,32,31,39,40,43,52,33,34,35,41,6129130132133134

%N自同构car_cdr_robr引起的自然数置换！作用于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（定义（car_cdr_robr！s）

%o（定义（robr！s）（let（（ex-cdr（cdr s）））（set-cdr！s（caar s））（set-car！（car s）ex-cdr）（swap！（cars））

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

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

%K nonn公司

%0、3

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