%I#8 2023年12月14日14:24:30

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

%电话：47,34,58,23,57,56,24,49,37,35,38,63,30,45,44,31,62,28,61,60,29,46,42，

%U 32,43,59,25,54,53,26,50,39,36,40,55,51,27,52.41196102145144103

%N签名-Dyck路径的Elizalde和Deutsch 2003双射的逆的A057164共轭的交叉变异。

%C用于构造A127291的逆函数。

%D Emeric Deutsch和Sergi Elizalde，Dyck路径及其结果的一个简单而不寻常的双射，《组合数学年鉴》，7（2003），第3期，281-297。

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

%o（MIT/GNU方案）

%o（定义（A127300 n）（A080300（转座列表->A014486（A127300-aux1（A014486 n））））

%o（定义（转座列表->A014486 tplist）（左折（λ（s p）（+s（出口2（最大值（汽车p）（cdr p））））0 tplist

%o（define（a127300-aux1 n）（if（zero？n）（list）（let loop（（n n n）（tplist1（list））（tplist2（list））（i 0）（j（A00523n））（b1））（cond（（zero？n）（append tplist1 tplist2））（（even？n）（loop（/n 2）tplist2（cons（cons'（）i）tplist1）j（+i b）（-b）））（assq'（）tplist1）=>（lambda（p）（set car！p i）（loop（/（-n 1）2）tplist2 tplist1 j（+i b）（-b））（（rassq'（）tplist2）=>（lambda（p）（set-car！pi）（循环（/（-n 1）2）tplist2tplist1j（+i b）（-b；；返回非交叉换位的列表。

%o（define（rassq key al）（let loop（（al）（last-found#f））（cond（（null？al）last-fond）（（eq？（caar al）key）（loop（cdr al）（car al））））（else（loop；；（rassq键al）基本上与（assq键（反向al））相同

%Y反向：A127299。a（n）=A057164。参见A014486。

%K nonn公司

%0、3

%2007年1月16日，安蒂·卡图内