Add q66

davidkun · Sep 9, 2024 · 6636c53 · 6636c53
1 parent 369138f
commit 6636c53
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/src/ex/q066.clj b/src/ex/q066.clj
@@ -0,0 +1,8 @@
+;; https://4clojure.oxal.org/#/problem/066
+
+(ns ex.q066)
+
+(defn ans
+  "Problem 66, Greatest Common Divisor"
+  [x y]
+  (some #(when (= 0 (rem x %) (rem y %)) %) (range (min x y) 0 -1)))
diff --git a/test/ex/q066_test.clj b/test/ex/q066_test.clj
@@ -0,0 +1,12 @@
+;; https://4clojure.oxal.org/#/problem/066
+
+(ns ex.q066-test
+  (:require [clojure.test :as t]
+            [ex.q066 :as sut]))
+
+(t/deftest test-q66
+  (t/testing "Problem 66, Greatest Common Divisor"
+    (t/is (= 2 (sut/ans 2 4)))
+    (t/is (= 5 (sut/ans 10 5)))
+    (t/is (= 1 (sut/ans 5 7)))
+    (t/is (= 33 (sut/ans 1023 858)))))