OFFSET
0,3
COMMENTS
LINKS
A. Karttunen, Gatomorphisms <I>(With the complete Scheme source)</I>
N. J. A. Sloane, Stern-Brocot or Farey Tree
PROG
(Scheme function implementing this automorphism on list-structures:)
(define (gma120705! s) (cond ((pair? s) (gma074680! s) (gma120705! (car s)) (cond ((pair? (cdr s)) (gma120705! (cddr s)) (gma120706! (cadr s)))))) s)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 28 2006
STATUS
approved