ユークリッド互除法による最大公約数

gcd-1.clj

;; mod を普通に使う
(defn gcd [m n]
  (if (zero? n) m
      (gcd n (mod m n))))
(gcd 1763 1927)
; => 41

gcd-2.clj

;; mod を使わず引き算だけで求める
(defn gcd [a b]
  (cond (= a b) a
        (> a b) (gcd (- a b) b)
        :else (gcd a (- b a))))
(gcd 1763 1927)
; => 41