Skip to content

Instantly share code, notes, and snippets.

@jewel12

jewel12/project_euler_1.clj

Last active December 19, 2015 06:19
Show Gist options
  • Save jewel12/5910632 to your computer and use it in GitHub Desktop.
Save jewel12/5910632 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
project_euler_1.clj
; Project Euler 1
(defn multiple-numbers-of-3-or-5 []
(defn whole-numbers [] (iterate inc 1))
(defn multiple-of-3-or-5? [x]
(if (or (zero? (rem x 3))
(zero? (rem x 5)))
true false))
(filter multiprable? (whole-numbers)))
(take-while #(> 1000 %) (multiple-numbers-of-3-or-5))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment