Skip to content

Instantly share code, notes, and snippets.

@balinterdi

balinterdi/to_binary.clj

Created December 31, 2009 12:51
Show Gist options
  • Save balinterdi/266717 to your computer and use it in GitHub Desktop.
Save balinterdi/266717 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
to_binary.clj
(defn to-binary
([number]
(apply str (to-binary number [])))
([number digits]
(if
(or (= 0 number) (= 1 number)) (cons number digits)
(recur (quot number 2) (cons (rem number 2) digits))))
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment