test added by test on Sun Jul 1 16:46:20 2012

(define (gcd a b)
  (let ((c (remainder a b)))
    (if (= c 0)
        b
        (gcd b c))))
[ permalink | raw ]