Skip to content

Instantly share code, notes, and snippets.

@polgfred

polgfred/reverse-digits.clj

Created April 26, 2010 16:11
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 polgfred/379536 to your computer and use it in GitHub Desktop.
Save polgfred/379536 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
reverse-digits.clj
(defn reverse-digits [value base]
(loop [v value t 0]
(if (zero? v)
t
(recur (quot v base) (+ (* t base) (rem v base))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment