%I#7 2012年3月31日13:21:12

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

%电话：26,27,45,46,44,42,43,48,47,49,50,28,29,54,53,55,30,57,31,37,38,32,39，

%U 40、41、33、61、34、51、52、35、56、58、59、36、60、62、63、64、65、66、67、68、69、70、71

%非递归加泰罗尼亚自同构的N签名置换：表A089840的第1654249行。

%H A.Karttunne，《序言》（Prolog-program），解释了这个和其他类似的非递归加泰罗尼亚自同构的构造</a>

%H<a href=“/index/Per#IntegerPermutationCatAuto”>加泰罗尼亚自同构的签名置换索引条目</a>

%o（Scheme函数，作用于S-表达式的此自同构的破坏性实现：）（define（*A123498！S）（cond（（null？S））（（and（pair？（cdrs））（pair？（cadrs）））（let（（old-cddr-S（cddr S）））（set cdr！（cdr S）（cdadr S））（set cdr！（cadr S）old-cddr-S））（*A074679！S））（（pair？（cdr S））（*A072796！S））（pair？（car S）））（*A072797！S））S）

%Y反转：A123497。A089840的第1654249行。用于构造自同构*A123502。A074679（n）=A083927（a（A057123（n）））。

%K nonn公司

%0、3

%2006年10月11日，安蒂·卡图内