Add another impl for q66

davidkun · Sep 9, 2024 · 5e8960c · 5e8960c
1 parent 6636c53
commit 5e8960c
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 1 deletion.
diff --git a/src/ex/q066.clj b/src/ex/q066.clj
@@ -6,3 +6,9 @@
   "Problem 66, Greatest Common Divisor"
   [x y]
   (some #(when (= 0 (rem x %) (rem y %)) %) (range (min x y) 0 -1)))
+
+(defn ans2
+  "Problem 66, using Euclid's algorithm (https://en.wikipedia.org/wiki/Greatest_common_divisor#Euclid's_algorithm)"
+  [x y]
+  (loop [x x y y]
+    (if (= x y) x (recur (- (max x y) (min x y)) (min x y)))))
diff --git a/test/ex/q066_test.clj b/test/ex/q066_test.clj
@@ -9,4 +9,9 @@
     (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)))))
+    (t/is (= 33 (sut/ans 1023 858)))
+    ;; version 2
+    (t/is (= 2 (sut/ans2 2 4)))
+    (t/is (= 5 (sut/ans2 10 5)))
+    (t/is (= 1 (sut/ans2 5 7)))
+    (t/is (= 33 (sut/ans2 1023 858)))))