OFFSET
0,3
LINKS
Antti Karttunen, Gatomorphisms (With the complete Scheme source)
PROG
(Scheme function implementing this automorphism on list-structures:)
(define (gma085167! s) (cond ((null? s) s) (else (app-to-xrt! (cdr s) (append! (car s) (list (list)))))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 23 2003
STATUS
approved