;;; Fichier conway.drs / 20 fevrier 2000

(define (conway-naif u0 n)
 (cond ((= n 0) u0)
       ((even? (conway-naif u0 (- n 1))) (/ (conway-naif u0 (- n 1)) 2))
       (else (+ (* 3 (conway-naif u0 (- n 1))) 1))))

(define (conway u0 n)
 (cond ((= n 0) u0)
       (else (calcul (conway u0 (- n 1))))))

(define (calcul x) 
 (display x) (display " ")
 (if (even? x) (/ x 2) (+ (* 3 x) 1)))