（代碼片斷）最大公約數

; 最大公約數
(def gcd (memoize
           (fn [x y]
             (cond
               (> x y) (recur (- x y) y)
               (< x y) (recur x (- y x))
               :else x))))

(gcd 1000645475 56130776629010010)
; 215