加泰罗尼亚自同构%沪A072797Catalan自同构诱导的签名置换的索引项%o A072797(Scheme函数在列表结构/S表达式上实现这种自同构,包括构造的(*A072797)和破坏的(*A072797!)版本:)(定义(*A072797 s)(如果(和(配对?s) (配对?(车辆s))(cons(cons(caar s)(cdr s))(cdar s))
%o A072797(定义(*A072797!s) (条件((不是(配对?s) )s)((不是(配对?(汽车s)))s)(其他(交换!s) (罗布!s) (交换!(汽车)s))
%o A072797(定义(机器人!s) (let((ex car(s car)))(设置汽车!s(cddr s))(设置cdr!(cdr s)ex car)(交换!(cdr s))(交换!s) s))
%o A072797(定义(交换!s) (let((ex car(s car)))(设置汽车!s(cdr s))(设置cdr!s ex car)s))
%Y A072797 A089840第8行。A072796的左/右翻转共轭,即A072797(n)=A057163(A072796(A057163(n)))。A073190和A073191中给出了固定点的计数和不同循环的计数(在每个受A014137和A014138限制的范围内)。A073190和A073191中给出了
%K A072797 nonn
%O A072797 0,3
%A A072797
%E A072797方案功能的进一步评论和建设性实施(*A072797),由_anttikarttunen
添加,2011年6月4日
%K A072797根据OEIS最终用户许可协议提供:http://OEIS.org/License