==> (define a '(4 5 6)) ==> (define b '(1 2 3)) ==> (append! a b) (4 5 6 1 2 3) ==> b (1 2 3) ==> a (4 5 6 1 2 3)
(define (length x) (if (null? x) 0 (+ 1 (length (tail x))))) (define a '(1 2 3)) (length (append! a a))
==> (* (zardoz) (zardoz)) 42
Warning: Solutions involving do
not work, because the result must be an integer. Hint: there is a
nice solution involving the number 13.