Add q24

davidkun · Jul 23, 2024 · bb8f396 · bb8f396
1 parent cbb6f44
commit bb8f396
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 0 deletions.
diff --git a/src/ex/q024.clj b/src/ex/q024.clj
@@ -0,0 +1,8 @@
+;; https://4clojure.oxal.org/#/problem/024
+
+(ns ex.q024)
+
+(defn ans
+  "Problem 24, Sum It All Up"
+  [coll]
+  (reduce + 0 coll))
diff --git a/test/ex/q024_test.clj b/test/ex/q024_test.clj
@@ -0,0 +1,13 @@
+;; https://4clojure.oxal.org/#/problem/024
+
+(ns ex.q024-test
+  (:require [clojure.test :as t]
+            [ex.q024 :as sut]))
+
+(t/deftest test-q24
+  (t/testing "Problem 24, Sum It All Up"
+    (t/is (= 6 (sut/ans [1 2 3])))
+    (t/is (= 8 (sut/ans (list 0 -2 5 5))))
+    (t/is (= 7 (sut/ans #{4 2 1})))
+    (t/is (= -1 (sut/ans '(0 0 -1))))
+    (t/is (= 14 (sut/ans '(1 10 3))))))