%I#10 2015年8月5日17:41:00

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

%电话：42,51,25,39,30,44,47,33,53,56,60,24,38,29,43,52,26,40,31,45,46,32,48，

%U 49,50,27,41,34,54,55,35,57,58,59,36,61,62,63,64,65107,79121149,70

%N当函数“reverse”作用于A014486/A063171编码的无符号S表达式时，由函数“revere”（存在于Lisp、Scheme、Prolog和Haskell等编程语言中）引起的自然数的自逆置换。

%H A.Karttunen，<A href=“网址：http://www.iki.fi/~kartturi/matikka/Nekomorphisms/gatomorf.htm“>Gatomorphisms（包括计算此序列的完整Scheme程序）

%H<a href=“/index/Li#ListFunsOfLisp”>为Lisp的列表函数诱导的序列索引条目</a>

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

%p Maple列表的类似函数可以实现为：reverse:=proc（a）如果0=nops（a）然后（a）else[op（reverse（cdr（a））），a[1]；fi；结束；

%o（Scheme函数在列表结构上实现此自同构：）reverse

%o（破坏性变体，参见A057509 Rol！）

%o（另一种变体，请参见A057510中的Ror！）（define（Rev2！s）（cond（（pair？s）（Ror！s），Rev2！（cdr s）））s）

%Y A069769的car/cdr翻转共轭，即A057508（n）=A057163（A069769-（A057163-（n）））。另请参阅A057164、A057509、A057510、A033538。

%K nonn公司

%0、3

%A _安蒂·卡图内_ 2000年9月3日