scheme/sicp/1.2.5-greatest_common_divisors_gcd.scm · 90 字节 · 下载原文

(define (gcd a b)
  (if (= b 0)
      a
      (gcd b (remainder a b))))
(gcd 12 8)