Skip to content

Instantly share code, notes, and snippets.

@lenaschoenburg

lenaschoenburg/smallestmultiple.clj

Last active December 12, 2015 00:28
Show Gist options
  • Save lenaschoenburg/4683726 to your computer and use it in GitHub Desktop.
Save lenaschoenburg/4683726 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
smallestmultiple.clj
(defn divisible? [number divisor]
(zero? (rem number divisor)))
(defn fit? [number]
(every? #(divisible? number %) (range 1 21)))
(first (drop-while (complement fir?) (iterate inc 1)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment