OFFSET
0,4
COMMENTS
This table is induced by the list-function 'app-to-xrt' whose Scheme-definition is given below, in the same way as A085201 is induced by the ordinary 'append'-function.
FORMULA
PROG
(HERE IS THE CORRESPONDING FUNCTION FOR S-EXPRESSIONS): (define (app-to-xrt a b) (cond ((null? a) b) ((pair? (cdr a)) (cons (car a) (app-to-xrt (cdr a) b))) (else (cons (app-to-xrt (car a) b) (cdr a)))))
(AND THE DESTRUCTIVE VARIANT): (define (app-to-xrt! a b) (cond ((null? a) b) (else (let recurse ((a a) (b b)) (cond ((and (not (pair? (car a))) (not (pair? (cdr a)))) (set-car! a b)) ((pair? (cdr a)) (recurse (cdr a) b)) (else (recurse (car a) b)))) a)))
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Antti Karttunen, Jun 23 2003
STATUS
approved