OFFSET
0,3
COMMENTS
LINKS
PROG
(Destructive Scheme implementation of this automorphism, which acts on S-expressions, i.e. list-structures:) (define (*A130923! s) (cond ((pair? s) (*A120705! s) (*A120706! (car s)) (*A120706! (cdr s)))) s)
(Another version where the call to car-branch is eliminated, but cdr-branch gets just more complex:)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 11 2007
STATUS
approved