OFFSET
0,3
LINKS
A. Karttunen, Gatomorphisms (with the complete Scheme source)
PROG
(Scheme function implementing this automorphism on list-structures:)
(define (gmA073285! s) (cond ((pair? s) (gmA073285! (cdr s)) (gmA072796! s) (gmA073285! (car s)))) s)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 25 2002
STATUS
approved