Skip to content

Instantly share code, notes, and snippets.

@landau

landau/gcd.clj

Last active August 29, 2015 13:56
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save landau/9127066 to your computer and use it in GitHub Desktop.
Save landau/9127066 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gcd.clj
;; recursive greatest common divisor
(defn gcd [a b]
(if (zero? b)
a
(gcd b (mod a b))))
(= 2 (gcd 2 4)) ;; true
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment