（代码片段）最大公约数

; 最大公约数
(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