From 989be019b568b8b58285a3f9d76b52ddcef65ff6 Mon Sep 17 00:00:00 2001
From: Tyler Wardhaugh <twardhaugh@cap-rx.com>
Date: Mon, 31 May 2021 10:55:58 -0700
Subject: Ch115: prep for challenge

---
 .../clojure/src/tw/weekly/c115/core.clj               | 12 ++++++++++++
 .../tyler-wardhaugh/clojure/src/tw/weekly/c115/t1.clj | 19 +++++++++++++++++++
 .../tyler-wardhaugh/clojure/src/tw/weekly/c115/t2.clj | 18 ++++++++++++++++++
 .../clojure/test/tw/weekly/c115_test.clj              |  4 ++++
 4 files changed, 53 insertions(+)
 create mode 100644 challenge-115/tyler-wardhaugh/clojure/src/tw/weekly/c115/core.clj
 create mode 100644 challenge-115/tyler-wardhaugh/clojure/src/tw/weekly/c115/t1.clj
 create mode 100644 challenge-115/tyler-wardhaugh/clojure/src/tw/weekly/c115/t2.clj
 create mode 100644 challenge-115/tyler-wardhaugh/clojure/test/tw/weekly/c115_test.clj

diff --git a/challenge-115/tyler-wardhaugh/clojure/src/tw/weekly/c115/core.clj b/challenge-115/tyler-wardhaugh/clojure/src/tw/weekly/c115/core.clj
new file mode 100644
index 0000000000..9d83092eaf
--- /dev/null
+++ b/challenge-115/tyler-wardhaugh/clojure/src/tw/weekly/c115/core.clj
@@ -0,0 +1,12 @@
+(ns tw.weekly.c115.core
+  (:require [tw.weekly.c115.t1 :as t1])
+  (:require [tw.weekly.c115.t2 :as t2])
+  (:gen-class))
+
+(defn -main
+  "Run all tasks"
+  [& _]
+  (println "Task #1:")
+  (t1/-main)
+  (println "\nTask #2:")
+  (t2/-main))
diff --git a/challenge-115/tyler-wardhaugh/clojure/src/tw/weekly/c115/t1.clj b/challenge-115/tyler-wardhaugh/clojure/src/tw/weekly/c115/t1.clj
new file mode 100644
index 0000000000..8abc631b84
--- /dev/null
+++ b/challenge-115/tyler-wardhaugh/clojure/src/tw/weekly/c115/t1.clj
@@ -0,0 +1,19 @@
+(ns tw.weekly.c115.t1
+  (:require [clojure.edn :as edn]
+            [clojure.string :as str]))
+
+;;;
+; Task description for TASK #1 › String Chain
+;;;
+(def DEFAULT-INPUT ["abc" "dea" "cd"])
+
+(defn string-chain
+  ""
+  [coll])
+
+(defn -main
+  "Run Task 1 with a given input N, defaulting to the first example from the
+  task description."
+  [& args]
+  (let [S (or (some->> args (map edn/read-string)) DEFAULT-INPUT)]
+    (println (string-chain S))))
diff --git a/challenge-115/tyler-wardhaugh/clojure/src/tw/weekly/c115/t2.clj b/challenge-115/tyler-wardhaugh/clojure/src/tw/weekly/c115/t2.clj
new file mode 100644
index 0000000000..69ce0b6e32
--- /dev/null
+++ b/challenge-115/tyler-wardhaugh/clojure/src/tw/weekly/c115/t2.clj
@@ -0,0 +1,18 @@
+(ns tw.weekly.c115.t2
+  (:require [clojure.edn :as edn]))
+
+;;;
+; Task description for TASK #2 › Largest Multiple
+;;;
+(def DEFAULT-INPUT [1 0 2 6])
+
+(defn largest-multiple
+  ""
+  [coll])
+
+(defn -main
+  "Run Task 2 with a given input N, defaulting to the first example from the
+  task description."
+  [& args]
+  (let [N (or (some->> args (map edn/read-string)) DEFAULT-INPUT)]
+    (println (largest-multiple N))))
diff --git a/challenge-115/tyler-wardhaugh/clojure/test/tw/weekly/c115_test.clj b/challenge-115/tyler-wardhaugh/clojure/test/tw/weekly/c115_test.clj
new file mode 100644
index 0000000000..f3edd10538
--- /dev/null
+++ b/challenge-115/tyler-wardhaugh/clojure/test/tw/weekly/c115_test.clj
@@ -0,0 +1,4 @@
+(ns tw.weekly.c115-test
+  (:require [clojure.test :refer [deftest is testing]]
+            [tw.weekly.c115.t1 :refer []]
+            [tw.weekly.c115.t2 :refer []]))
-- 
cgit 


From 8ad51d6fd340d1ed47d08b22ca619a4e48b2eb9d Mon Sep 17 00:00:00 2001
From: Tyler Wardhaugh <twardhaugh@cap-rx.com>
Date: Sun, 6 Jun 2021 10:13:18 -0700
Subject: Ch115 (Clojure): Task 2

---
 .../tyler-wardhaugh/clojure/src/tw/weekly/c115/t2.clj       | 13 +++++++++++--
 .../tyler-wardhaugh/clojure/test/tw/weekly/c115_test.clj    | 10 ++++++++--
 2 files changed, 19 insertions(+), 4 deletions(-)

diff --git a/challenge-115/tyler-wardhaugh/clojure/src/tw/weekly/c115/t2.clj b/challenge-115/tyler-wardhaugh/clojure/src/tw/weekly/c115/t2.clj
index 69ce0b6e32..f401262044 100644
--- a/challenge-115/tyler-wardhaugh/clojure/src/tw/weekly/c115/t2.clj
+++ b/challenge-115/tyler-wardhaugh/clojure/src/tw/weekly/c115/t2.clj
@@ -7,8 +7,17 @@
 (def DEFAULT-INPUT [1 0 2 6])
 
 (defn largest-multiple
-  ""
-  [coll])
+  "Determine the largest mulitple that can be formed using coll"
+  [coll]
+  (let [min-even (->> coll (filter even?) (reduce min))
+        freqs (-> coll frequencies (update min-even dec))
+        remaining (into [] (mapcat (fn [[num x]] (repeat x num))) freqs)]
+    (->> remaining
+         sort
+         (concat [min-even])
+         reverse
+         (reduce str "")
+         (Integer/parseInt))))
 
 (defn -main
   "Run Task 2 with a given input N, defaulting to the first example from the
diff --git a/challenge-115/tyler-wardhaugh/clojure/test/tw/weekly/c115_test.clj b/challenge-115/tyler-wardhaugh/clojure/test/tw/weekly/c115_test.clj
index f3edd10538..18141065d6 100644
--- a/challenge-115/tyler-wardhaugh/clojure/test/tw/weekly/c115_test.clj
+++ b/challenge-115/tyler-wardhaugh/clojure/test/tw/weekly/c115_test.clj
@@ -1,4 +1,10 @@
 (ns tw.weekly.c115-test
   (:require [clojure.test :refer [deftest is testing]]
-            [tw.weekly.c115.t1 :refer []]
-            [tw.weekly.c115.t2 :refer []]))
+            #_[tw.weekly.c115.t1 :refer []]
+            [tw.weekly.c115.t2 :refer [largest-multiple]]))
+
+(deftest task-2
+  (testing "Task 2, Largest Multiple"
+    (is (= 6210 (largest-multiple [1 0 2 6])))
+    (is (= 8412 (largest-multiple [1 4 2 8])))
+    (is (= 7614 (largest-multiple [4 1 7 6])))))
-- 
cgit