diff options
| author | Tyler Wardhaugh <twardhaugh@cap-rx.com> | 2021-05-31 10:55:58 -0700 |
|---|---|---|
| committer | Tyler Wardhaugh <twardhaugh@cap-rx.com> | 2021-05-31 10:56:44 -0700 |
| commit | 989be019b568b8b58285a3f9d76b52ddcef65ff6 (patch) | |
| tree | 8410acecc58d9d458fdc04a2d9a162dd624f6fb8 | |
| parent | bfbd9eea1b0f93c949d310cef1b59f9771b14773 (diff) | |
| download | perlweeklychallenge-club-989be019b568b8b58285a3f9d76b52ddcef65ff6.tar.gz perlweeklychallenge-club-989be019b568b8b58285a3f9d76b52ddcef65ff6.tar.bz2 perlweeklychallenge-club-989be019b568b8b58285a3f9d76b52ddcef65ff6.zip | |
Ch115: prep for challenge
4 files changed, 53 insertions, 0 deletions
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 []])) |