%I#21 2018年5月1日02:42:51

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

%电话：26,27,28,29,30,31,32,33,34,35,36,58,59,62,63,64,56,60,51,37,38,52,39，

%U 40、41、57、61、53、42、43、54、44、45、46、55、47、48、49、50、65、66、67、68、69、70、71、72

%N加泰罗尼亚自同构*A089857作用于由A014486/A063171编码的二叉树/括号引起的自然数置换。

%C、。A…B…………..C…A

%C.\.//

%C。。。x…C…-->。。。。x...B…………（）。。A…………（）。。答：。。

%C….\./……….\./…….\./….-->….\./。。。

%C。。。。。x…………..x。。。。

%C（（a.b）。c） ->（（c.a）。b） _____（（）。a） -->（（）。a）

%C就S-表达式而言，该自同构旋转S-exp的caar、cdar和cdr，即，如果car-side不是（）。

%C有关如何从该定义获取给定整数序列的详细说明，请参阅Karttune-OEIS-Wiki链接。

%H A.Karttunen，<A href=“http://oeis.org/wiki/Catalan_Automorphisms“>加泰罗尼亚自形</a>

%H A.Karttunen，用于计算此序列的c程序</a>

%H<a href=“/index/Per#IntegerPermutationCatAuto”>加泰罗尼亚语自同构诱导的signature-permutation的索引条目</a>

%o（在列表结构/S表达式上实现此自同构的Scheme函数，包括构造（*A089857）和破坏（*A089 857！）版本：）

%o（定义（*A089857 s）（如果（和（配对）（配对）））（cons（配对）

%o（定义（*A089857！s）

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

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

%A089840的Y行11。A089855的逆运算。a（n）=A074679（A069770（n））=A069770。

%Y循环次数：A089847。定点数量：A089848（在A014137和A014138限制的每个范围内）。

%K nonn公司

%0、3

%2003年11月29日，安蒂·卡图内

%E 2011年6月4日_Antti Karttune_添加的方案功能（*A089857）的进一步意见和建设性实施