From f9482b9b1eee4938a35a455164f04a0800a1bdc0 Mon Sep 17 00:00:00 2001 From: Tyler Wardhaugh Date: Mon, 8 Nov 2021 15:37:50 -0800 Subject: Ch138 (Clojure): prep for challenge --- challenge-138/tyler-wardhaugh/clojure/README.md | 12 ++++++------ challenge-138/tyler-wardhaugh/clojure/bb.edn | 18 ++++++++++++++---- challenge-138/tyler-wardhaugh/clojure/pom.xml | 8 ++++---- .../clojure/src/tw/weekly/c138/core.clj | 12 ++++++++++++ .../tyler-wardhaugh/clojure/src/tw/weekly/c138/t1.clj | 14 ++++++++++++++ .../tyler-wardhaugh/clojure/src/tw/weekly/c138/t2.clj | 14 ++++++++++++++ .../clojure/test/tw/weekly/c138/t1_test.clj | 7 +++++++ .../clojure/test/tw/weekly/c138/t2_test.clj | 7 +++++++ 8 files changed, 78 insertions(+), 14 deletions(-) create mode 100644 challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/core.clj create mode 100644 challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/t1.clj create mode 100644 challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/t2.clj create mode 100644 challenge-138/tyler-wardhaugh/clojure/test/tw/weekly/c138/t1_test.clj create mode 100644 challenge-138/tyler-wardhaugh/clojure/test/tw/weekly/c138/t2_test.clj diff --git a/challenge-138/tyler-wardhaugh/clojure/README.md b/challenge-138/tyler-wardhaugh/clojure/README.md index 371f142e4e..7d1b854cdc 100644 --- a/challenge-138/tyler-wardhaugh/clojure/README.md +++ b/challenge-138/tyler-wardhaugh/clojure/README.md @@ -1,7 +1,7 @@ -# tw.weekly.c137 +# tw.weekly.c138 -The Weekly Challenge - #137 - Tyler Wardhaugh +The Weekly Challenge - #138 - Tyler Wardhaugh ## Usage @@ -9,7 +9,7 @@ Clojure ([installation instructions](https://clojure.org/guides/getting_started# Run the project directly (shows default output from both tasks): - $ clojure -M -m tw.weekly.c137.core + $ clojure -M -m tw.weekly.c138.core # ... or ... $ bb run both @@ -21,13 +21,13 @@ Run the project's tests (which are samples from the task descriptions): Run Task #1 with input - $ clojure -M -m tw.weekly.c137.t1 + $ clojure -M -m tw.weekly.c138.t1 N # ... or ... - $ bb run task-1 + $ bb run task-1 N Run Task #2 with input: - $ clojure -M -m tw.weekly.c137.t2 N + $ clojure -M -m tw.weekly.c138.t2 N # ... or ... $ bb run task-2 N diff --git a/challenge-138/tyler-wardhaugh/clojure/bb.edn b/challenge-138/tyler-wardhaugh/clojure/bb.edn index f0892047d3..be8af5209b 100644 --- a/challenge-138/tyler-wardhaugh/clojure/bb.edn +++ b/challenge-138/tyler-wardhaugh/clojure/bb.edn @@ -30,7 +30,17 @@ ([task args] (run-task-bb task args (get-task-ns task))) ([task args task-ns] (let [bb-cmd (format "bb -m %s " task-ns)] - (apply shell bb-cmd args))))) + (apply shell bb-cmd args)))) + + (defn bb-no-go + [task & _] + (binding [*out* *err*] + (let [task-num (-> task name last (Character/digit 10))] + (println + (str "error: can't run Task " task-num + " via Babashka because it depends" + " on some incompatible libraries.")))) + (System/exit 1))) clean {:doc "Clean out temporary files" :task (run! fs/delete-tree @@ -63,16 +73,16 @@ c**** {:doc "CHALLENGE TASKS"} task-1 {:doc "Run Task 1 (via clojure)" - :task (run-task :t1 *command-line-args* "tw.weekly.c137.t1")} + :task (run-task :t1 *command-line-args*)} task-1-bb {:doc "Run Task 1 (via Babashka)" - :task (run-task-bb :t1 *command-line-args* "tw.weekly.c137.t1")} + :task (bb-no-go :t1 *command-line-args*)} task-2 {:doc "Run Task 2 (via clojure)" :task (run-task :t2 *command-line-args*)} task-2-bb {:doc "Run Task 2 (via Babashka)" - :task (run-task-bb :t2 *command-line-args*)} + :task (bb-no-go :t2 *command-line-args*)} both {:doc "Run both tasks (via clojure)" :task (do diff --git a/challenge-138/tyler-wardhaugh/clojure/pom.xml b/challenge-138/tyler-wardhaugh/clojure/pom.xml index 03a691f300..2a0300d875 100644 --- a/challenge-138/tyler-wardhaugh/clojure/pom.xml +++ b/challenge-138/tyler-wardhaugh/clojure/pom.xml @@ -2,11 +2,11 @@ 4.0.0 tw.weekly - tw.weekly.c137 + tw.weekly.c138 0.1.0-SNAPSHOT - tw.weekly.c137 - Challenge #137 - https://github.com/tw.weekly/tw.weekly.c137 + tw.weekly.c138 + Challenge #138 + https://github.com/tw.weekly/tw.weekly.c138 Eclipse Public License diff --git a/challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/core.clj b/challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/core.clj new file mode 100644 index 0000000000..403661d6f1 --- /dev/null +++ b/challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/core.clj @@ -0,0 +1,12 @@ +(ns tw.weekly.c138.core + (:require [tw.weekly.c138.t1 :as t1]) + (:require [tw.weekly.c138.t2 :as t2]) + (:gen-class)) + +(defn -main + "Run all tasks" + [& _] + (println "Task #1:") + (t1/-main) + (println "\nTask #2:") + (t2/-main)) diff --git a/challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/t1.clj b/challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/t1.clj new file mode 100644 index 0000000000..badf10ee50 --- /dev/null +++ b/challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/t1.clj @@ -0,0 +1,14 @@ +(ns tw.weekly.c138.t1 + (:require [clojure.edn :as edn])) + +;;; +; Task description for TASK #1 › Workdays +;;; +(def DEFAULT-INPUT [2021]) + +(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)] + )) diff --git a/challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/t2.clj b/challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/t2.clj new file mode 100644 index 0000000000..ca4530b799 --- /dev/null +++ b/challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/t2.clj @@ -0,0 +1,14 @@ +(ns tw.weekly.c138.t2 + (:require [clojure.edn :as edn])) + +;;; +; Task description for TASK #2 › Split Number +;;; +(def DEFAULT-INPUT [81]) + +(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)] + )) diff --git a/challenge-138/tyler-wardhaugh/clojure/test/tw/weekly/c138/t1_test.clj b/challenge-138/tyler-wardhaugh/clojure/test/tw/weekly/c138/t1_test.clj new file mode 100644 index 0000000000..8809fb615c --- /dev/null +++ b/challenge-138/tyler-wardhaugh/clojure/test/tw/weekly/c138/t1_test.clj @@ -0,0 +1,7 @@ +(ns tw.weekly.c138.t1-test + (:require [clojure.test :refer [deftest is testing]] + [tw.weekly.c138.t1 :refer []])) + +(deftest examples + (testing "Examples from description" + )) diff --git a/challenge-138/tyler-wardhaugh/clojure/test/tw/weekly/c138/t2_test.clj b/challenge-138/tyler-wardhaugh/clojure/test/tw/weekly/c138/t2_test.clj new file mode 100644 index 0000000000..71d2fe47e4 --- /dev/null +++ b/challenge-138/tyler-wardhaugh/clojure/test/tw/weekly/c138/t2_test.clj @@ -0,0 +1,7 @@ +(ns tw.weekly.c138.t2-test + (:require [clojure.test :refer [deftest is testing]] + [tw.weekly.c138.t2 :refer []])) + +(deftest examples + (testing "Examples from description" + )) -- cgit From 0814a5fbb2b360dc72ef19246ae752f2efa96d67 Mon Sep 17 00:00:00 2001 From: Tyler Wardhaugh Date: Mon, 8 Nov 2021 16:02:34 -0800 Subject: Ch138 (Clojure): Task 1 --- challenge-138/tyler-wardhaugh/clojure/deps.edn | 4 +++- challenge-138/tyler-wardhaugh/clojure/pom.xml | 10 ++++++++++ .../tyler-wardhaugh/clojure/src/tw/weekly/c138/t1.clj | 13 +++++++++++-- .../tyler-wardhaugh/clojure/test/tw/weekly/c138/t1_test.clj | 5 +++-- 4 files changed, 27 insertions(+), 5 deletions(-) diff --git a/challenge-138/tyler-wardhaugh/clojure/deps.edn b/challenge-138/tyler-wardhaugh/clojure/deps.edn index 5b1400b27e..54edd9d65e 100644 --- a/challenge-138/tyler-wardhaugh/clojure/deps.edn +++ b/challenge-138/tyler-wardhaugh/clojure/deps.edn @@ -1,5 +1,7 @@ {:paths ["src" "resources"] - :deps {org.clojure/clojure {:mvn/version "1.10.3"}} + :deps {org.clojure/clojure {:mvn/version "1.10.3"} + clojure.java-time/clojure.java-time {:mvn/version "0.3.3"} + org.threeten/threeten-extra {:mvn/version "1.7.0"}} :aliases {:test {:extra-paths ["test"] :extra-deps {org.clojure/test.check {:mvn/version "1.1.0"} diff --git a/challenge-138/tyler-wardhaugh/clojure/pom.xml b/challenge-138/tyler-wardhaugh/clojure/pom.xml index 2a0300d875..8f51ecb4bb 100644 --- a/challenge-138/tyler-wardhaugh/clojure/pom.xml +++ b/challenge-138/tyler-wardhaugh/clojure/pom.xml @@ -24,6 +24,16 @@ clojure 1.10.3 + + clojure.java-time + clojure.java-time + 0.3.3 + + + org.threeten + threeten-extra + 1.7.0 + src diff --git a/challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/t1.clj b/challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/t1.clj index badf10ee50..1cec5141e3 100644 --- a/challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/t1.clj +++ b/challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/t1.clj @@ -1,14 +1,23 @@ (ns tw.weekly.c138.t1 - (:require [clojure.edn :as edn])) + (:require [clojure.edn :as edn] + [java-time :as j])) ;;; ; Task description for TASK #1 › Workdays ;;; (def DEFAULT-INPUT [2021]) +(defn count-workdays + [year] + (let [start (j/local-date year 1 1) + end (j/plus start (j/years 1)) + source (j/iterate j/adjust start :next-working-day) + xf (take-while #(j/before? % end))] + (count (sequence xf source)))) + (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 (count-workdays N)))) diff --git a/challenge-138/tyler-wardhaugh/clojure/test/tw/weekly/c138/t1_test.clj b/challenge-138/tyler-wardhaugh/clojure/test/tw/weekly/c138/t1_test.clj index 8809fb615c..9d32ebaad2 100644 --- a/challenge-138/tyler-wardhaugh/clojure/test/tw/weekly/c138/t1_test.clj +++ b/challenge-138/tyler-wardhaugh/clojure/test/tw/weekly/c138/t1_test.clj @@ -1,7 +1,8 @@ (ns tw.weekly.c138.t1-test (:require [clojure.test :refer [deftest is testing]] - [tw.weekly.c138.t1 :refer []])) + [tw.weekly.c138.t1 :refer [count-workdays]])) (deftest examples (testing "Examples from description" - )) + (is (= 261 (count-workdays 2021))) + (is (= 262 (count-workdays 2020))))) -- cgit From 9c75eb4f419bba343e1a0479dc81961246bc5929 Mon Sep 17 00:00:00 2001 From: Tyler Wardhaugh Date: Tue, 9 Nov 2021 00:27:15 -0800 Subject: Ch138 (Clojure): Task 2 --- challenge-138/tyler-wardhaugh/clojure/deps.edn | 3 +- .../clojure/src/tw/weekly/c138/t2.clj | 36 ++++++++++++++++++++-- .../clojure/test/tw/weekly/c138/t2_test.clj | 6 ++-- 3 files changed, 40 insertions(+), 5 deletions(-) diff --git a/challenge-138/tyler-wardhaugh/clojure/deps.edn b/challenge-138/tyler-wardhaugh/clojure/deps.edn index 54edd9d65e..15aa02e4d4 100644 --- a/challenge-138/tyler-wardhaugh/clojure/deps.edn +++ b/challenge-138/tyler-wardhaugh/clojure/deps.edn @@ -1,7 +1,8 @@ {:paths ["src" "resources"] :deps {org.clojure/clojure {:mvn/version "1.10.3"} clojure.java-time/clojure.java-time {:mvn/version "0.3.3"} - org.threeten/threeten-extra {:mvn/version "1.7.0"}} + org.threeten/threeten-extra {:mvn/version "1.7.0"} + org.clojure/math.numeric-tower {:mvn/version "0.0.4"}} :aliases {:test {:extra-paths ["test"] :extra-deps {org.clojure/test.check {:mvn/version "1.1.0"} diff --git a/challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/t2.clj b/challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/t2.clj index ca4530b799..714b0beb42 100644 --- a/challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/t2.clj +++ b/challenge-138/tyler-wardhaugh/clojure/src/tw/weekly/c138/t2.clj @@ -1,14 +1,46 @@ (ns tw.weekly.c138.t2 - (:require [clojure.edn :as edn])) + (:require [clojure.edn :as edn] + [clojure.pprint :refer [cl-format]] + [clojure.string :as str] + [clojure.math.numeric-tower :refer [sqrt expt]])) ;;; ; Task description for TASK #2 › Split Number ;;; (def DEFAULT-INPUT [81]) +(defn ->int + [n] (Integer/parseInt n 10)) + +(defn n->break [len n] + (-> n + (bit-shift-left 1) + (->> (cl-format nil "~v,'0b" len)) + (str/escape {\1 \+ \0 \-}))) + +(defn get-splits + [n] + (let [s (str n) + len (count s) + breaks (map (partial n->break len) (range 1 (expt 2 (dec len)))) + join-nums (fn [coll] + (when (not= [\+] coll) + (->> coll (remove #{\-}) (str/join "") ->int))) + xf (map (comp (partial keep join-nums) + (partial partition-by #{\+}) + (partial interleave s)))] + (sequence xf breaks))) + +(defn sum-of-splits? + [n] + (let [source (get-splits n) + xf (comp (map (partial reduce +)) (keep #(when (= % (sqrt n)) true))) + f (completing (fn [_ v] (reduced v)))] + (transduce xf f false source))) + (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 (if (sum-of-splits? N) 1 0)))) diff --git a/challenge-138/tyler-wardhaugh/clojure/test/tw/weekly/c138/t2_test.clj b/challenge-138/tyler-wardhaugh/clojure/test/tw/weekly/c138/t2_test.clj index 71d2fe47e4..b2a3ef3bb1 100644 --- a/challenge-138/tyler-wardhaugh/clojure/test/tw/weekly/c138/t2_test.clj +++ b/challenge-138/tyler-wardhaugh/clojure/test/tw/weekly/c138/t2_test.clj @@ -1,7 +1,9 @@ (ns tw.weekly.c138.t2-test (:require [clojure.test :refer [deftest is testing]] - [tw.weekly.c138.t2 :refer []])) + [tw.weekly.c138.t2 :refer [sum-of-splits?]])) (deftest examples (testing "Examples from description" - )) + (is (true? (sum-of-splits? 81))) + (is (true? (sum-of-splits? 9801))) + (is (false? (sum-of-splits? 36))))) -- cgit