%I#2012年3月31日5日13:21:16
%S 0,1,3,2,7,8,5,4,6,17,18,20,21,22,12,11,13,9,10,15,14,16,19,45,46,48,
%电话:49,50,54,55,57,58,59,61,62,63,64,31,32,29,28,30,34,33,35,27,24,36,23,
%U 26、25、40、39、41、37、38、43、42、44、47、52、51、53、56、60129130132133134
%加泰罗尼亚自同构的N签名置换:自同构*A120705的逆FORK变换。
%C这是唯一的加泰罗尼亚自同构f,使得*A120705=(FORK f)。有关FORK的定义,请参见A122201。
%H A.Karttunen,n的表,n=0..2055时的A(n)</a>
%H<a href=“/index/Per#IntegerPermutationCatAuto”>加泰罗尼亚自同构的签名置换索引条目</a>
%o(此自同构的破坏性方案实现,作用于S表达式,即列表结构:)
%o(另一个版本取消了对car-branch的调用,但cdr-branch更加复杂:)
%o(定义(*A130923!s)(cond((pair?s)(*A074680!s)
%Y反向:A130924。参见A130925和A130926。
%K nonn公司
%0、3
%2007年6月11日,安蒂·卡图宁
|