Add q64

davidkun · Sep 5, 2024 · f390400 · f390400
1 parent 5c18d18
commit f390400
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/src/ex/q064.clj b/src/ex/q064.clj
@@ -0,0 +1,8 @@
+;; https://4clojure.oxal.org/#/problem/064
+
+(ns ex.q064)
+
+(defn ans
+  "Problem 64, Intro to Reduce"
+  []
+  +)
diff --git a/test/ex/q064_test.clj b/test/ex/q064_test.clj
@@ -0,0 +1,11 @@
+;; https://4clojure.oxal.org/#/problem/064
+
+(ns ex.q064-test
+  (:require [clojure.test :as t]
+            [ex.q064 :as sut]))
+
+(t/deftest test-q64
+  (t/testing "Problem 64, Intro to Reduce"
+    (t/is (= 15 (reduce (sut/ans) [1 2 3 4 5])))
+    (t/is (= 0 (reduce (sut/ans) [])))
+    (t/is (= 6 (reduce (sut/ans) 1 [2 3])))))