;;; Fichier wallis.drs / 26 fevrier 2000

(define (wallis n)
  (cond ((= n 1) 1)
        ((even? n) (* (/ n (+ n 1)) (wallis (- n 1))))
        (else (* (/ (+ n 1) n) (wallis (- n 1))))))