Skip to content

Instantly share code, notes, and snippets.

@cemerick

cemerick/gist:5774228

Created June 13, 2013 14:42
Show Gist options
  • Save cemerick/5774228 to your computer and use it in GitHub Desktop.
Save cemerick/5774228 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(defn- shrink-number
[n]
(->> (iterate #(quot % 2) n)
(drop 1)
(take-while (if (integer? n)
(partial not= 0)
#(not (== 0 (.unscaledValue (bigdec %))))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment