Create a gist now

Instantly share code, notes, and snippets.

@j1n3l0 /gist:5205587
Last active Dec 15, 2015

(fn f
([n] (f n [100 50 20 10 5 1] {}))
([n [x & xs :as coll] acc]
(if-not (seq coll)
(f (mod n x) xs (assoc acc x (unchecked-divide-int n x))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment