Ch82: Task 1

3 files changed, 41 insertions, 0 deletions

diff --git a/challenge-082/tyler-wardhaugh/clojure/src/tw/weekly/c82/core.clj b/challenge-082/tyler-wardhaugh/clojure/src/tw/weekly/c82/core.clj
new file mode 100644
index 0000000000..723a65d626
--- /dev/null
+++ b/challenge-082/tyler-wardhaugh/clojure/src/tw/weekly/c82/core.clj
@@ -0,0 +1,9 @@
+(ns tw.weekly.c82.core
+ (:require [tw.weekly.c82.t1 :as t1])
+ (:gen-class))
+
+(defn -main
+  "Run all tasks"
+  [& _]
+  (println "Task #1")
+  (t1/-main))
diff --git a/challenge-082/tyler-wardhaugh/clojure/src/tw/weekly/c82/t1.clj b/challenge-082/tyler-wardhaugh/clojure/src/tw/weekly/c82/t1.clj
new file mode 100644
index 0000000000..1b2713d772
--- /dev/null
+++ b/challenge-082/tyler-wardhaugh/clojure/src/tw/weekly/c82/t1.clj
@@ -0,0 +1,24 @@
+(ns tw.weekly.c82.t1
+  (:require [clojure.edn :as edn]))
+
+;;; Task description for TASK #1 › Common Factors
+; Submitted by: Niels van Dijke
+; You are given 2 positive numbers $M and $N.
+;
+; Write a script to list all common factors of the given numbers.
+;;;
+
+(defn common-factors
+  "Determine the common factors for m and n."
+  [m n]
+  (let [[m n] (sort [m n])
+        source (concat (range 1 (inc (quot n 2))) [n])
+        xf (filter (fn [x] (= 0 (rem n x) (rem m x))))]
+    (into (sorted-set) xf source)))
+
+(defn -main
+  "Run Task 1 with two strings A and B, defaulting to the first example given in the task description."
+  [& args]
+  (let [[M N] (or (some->> args (take 2) (map edn/read-string)) [12 18])
+        factors (common-factors M N)]
+    (println (seq factors))))
diff --git a/challenge-082/tyler-wardhaugh/clojure/test/tw/weekly/c82_test.clj b/challenge-082/tyler-wardhaugh/clojure/test/tw/weekly/c82_test.clj
new file mode 100644
index 0000000000..20c4ddfd5b
--- /dev/null
+++ b/challenge-082/tyler-wardhaugh/clojure/test/tw/weekly/c82_test.clj
@@ -0,0 +1,8 @@
+(ns tw.weekly.c82-test
+  (:require [clojure.test :refer [deftest is testing]]
+            [tw.weekly.c82.t1 :refer [common-factors]]))
+
+(deftest task-1
+  (testing "Task 1, Common Factors"
+    (is (= (common-factors 12 18) #{1 2 3 6}))
+    (is (= (common-factors 18 23) #{1}))))