From a13cc209e002a72a18c659d22ed39dbd99be2fcd Mon Sep 17 00:00:00 2001
From: Charles Cabergs <me@cacharle.xyz>
Date: Mon, 26 Jul 2021 18:15:52 +0200
Subject: problem 1 2 in clojure

---
 clojure/001-multiples_of_3_or_5.clj | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 clojure/001-multiples_of_3_or_5.clj

(limited to 'clojure/001-multiples_of_3_or_5.clj')

diff --git a/clojure/001-multiples_of_3_or_5.clj b/clojure/001-multiples_of_3_or_5.clj
new file mode 100644
index 0000000..6547861
--- /dev/null
+++ b/clojure/001-multiples_of_3_or_5.clj
@@ -0,0 +1,18 @@
+;;;;
+;; Multiples of 3 or 5
+;; Problem 1
+;;
+;; If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6
+;; and 9. The sum of these multiples is 23.
+;; Find the sum of all the multiples of 3 or 5 below 1000.
+;;;;
+
+(def +top+ 1000)
+
+(def result
+  (reduce +
+    (for [x (range 1 +top+)
+          :when (or (= (mod x 3) 0) (= (mod x 5) 0))]
+      x)))
+
+(println result)
-- 
cgit