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

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

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

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

%N由自同构cdr_robl_car诱导的自然数置换！作用于A014486编码的括号。

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

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

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

%o（定义（cdr_robl_car！s）（cond（（not（pair？s）））（（not-（pair）（cdr！s））（交换！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逆置换：A071657及其car/cdr翻转共轭，即A071658（n）=A057163（A071657-A057163-（n））。另请参阅A071655、A071656、A0716509、A071660。

%K nonn公司

%0、3

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