%I#5 2014年5月1日02:47:41

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

%电话：37,38,43,42,44,45,46,47,48,49,50,52,51,53,54,55,60,61,62,23,24,63,25，

%U 26,27,56,57,64,28,29,58,30,31,32,59,33,34,35,36113112114115116

%N自同构car_roble_cdr诱导的自然数置换！作用于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_roble_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逆置换：A072090及其car/cdr翻转共轭，即A072091（n）=A057163（A072090（A057163（n）））。另请参阅A071655-A071660、A072092-A072095。

%K nonn公司

%0、3

%2002年6月25日，安蒂·卡图宁