From cc51659d7bf641f5b014cfae71dfcb3ea97ddcdb Mon Sep 17 00:00:00 2001 From: Tyler Wardhaugh Date: Sat, 18 Sep 2021 21:38:13 -0700 Subject: Ch129 (Clojure): prep for challenge --- challenge-129/tyler-wardhaugh/clojure/bb.edn | 4 +--- .../tyler-wardhaugh/clojure/src/tw/weekly/c129/core.clj | 12 ++++++++++++ .../tyler-wardhaugh/clojure/src/tw/weekly/c129/t1.clj | 14 ++++++++++++++ .../tyler-wardhaugh/clojure/src/tw/weekly/c129/t2.clj | 14 ++++++++++++++ .../tyler-wardhaugh/clojure/test/tw/weekly/c129_test.clj | 10 ++++++++++ 5 files changed, 51 insertions(+), 3 deletions(-) create mode 100644 challenge-129/tyler-wardhaugh/clojure/src/tw/weekly/c129/core.clj create mode 100644 challenge-129/tyler-wardhaugh/clojure/src/tw/weekly/c129/t1.clj create mode 100644 challenge-129/tyler-wardhaugh/clojure/src/tw/weekly/c129/t2.clj create mode 100644 challenge-129/tyler-wardhaugh/clojure/test/tw/weekly/c129_test.clj diff --git a/challenge-129/tyler-wardhaugh/clojure/bb.edn b/challenge-129/tyler-wardhaugh/clojure/bb.edn index 70feb7d8ea..4cd11817b8 100644 --- a/challenge-129/tyler-wardhaugh/clojure/bb.edn +++ b/challenge-129/tyler-wardhaugh/clojure/bb.edn @@ -63,9 +63,7 @@ :task (run-task :t1 *command-line-args*)} task-1-bb {:doc "Run Task 1 (via Babashka)" - :task (binding [*out* *err*] - (println "error: can't run Task 1 via Babashka because it depends on some incompatible libraries.") - (System/exit 1))} + :task (run-task-bb :t1 *command-line-args*)} task-2 {:doc "Run Task 2 (via clojure)" :task (run-task :t2 *command-line-args*)} diff --git a/challenge-129/tyler-wardhaugh/clojure/src/tw/weekly/c129/core.clj b/challenge-129/tyler-wardhaugh/clojure/src/tw/weekly/c129/core.clj new file mode 100644 index 0000000000..7a531a9d8c --- /dev/null +++ b/challenge-129/tyler-wardhaugh/clojure/src/tw/weekly/c129/core.clj @@ -0,0 +1,12 @@ +(ns tw.weekly.c129.core + (:require [tw.weekly.c129.t1 :as t1]) + (:require [tw.weekly.c129.t2 :as t2]) + (:gen-class)) + +(defn -main + "Run all tasks" + [& _] + (println "Task #1:") + (t1/-main) + (println "\nTask #2:") + (t2/-main)) diff --git a/challenge-129/tyler-wardhaugh/clojure/src/tw/weekly/c129/t1.clj b/challenge-129/tyler-wardhaugh/clojure/src/tw/weekly/c129/t1.clj new file mode 100644 index 0000000000..d6592c5e9c --- /dev/null +++ b/challenge-129/tyler-wardhaugh/clojure/src/tw/weekly/c129/t1.clj @@ -0,0 +1,14 @@ +(ns tw.weekly.c129.t1 + (:require [clojure.edn :as edn])) + +;;; +; Task description for TASK #1 › Root Distance +;;; +(def DEFAULT-INPUT []) + +(defn -main + "Run Task 1 with a given input T, defaulting to the first example from the + task description." + [& args] + (let [[T] (or (some->> args (map edn/read-string)) DEFAULT-INPUT)] + )) diff --git a/challenge-129/tyler-wardhaugh/clojure/src/tw/weekly/c129/t2.clj b/challenge-129/tyler-wardhaugh/clojure/src/tw/weekly/c129/t2.clj new file mode 100644 index 0000000000..39275957c2 --- /dev/null +++ b/challenge-129/tyler-wardhaugh/clojure/src/tw/weekly/c129/t2.clj @@ -0,0 +1,14 @@ +(ns tw.weekly.c129.t2 + (:require [clojure.edn :as edn])) + +;;; +; Task description for TASK #2, Add Linked Lists +;;; +(def DEFAULT-INPUT []) + +(defn -main + "Run Task 1 with a given input L, defaulting to the first example from the + task description." + [& args] + (let [[L] (or (some->> args (map edn/read-string)) DEFAULT-INPUT)] + )) diff --git a/challenge-129/tyler-wardhaugh/clojure/test/tw/weekly/c129_test.clj b/challenge-129/tyler-wardhaugh/clojure/test/tw/weekly/c129_test.clj new file mode 100644 index 0000000000..bd60de5fd7 --- /dev/null +++ b/challenge-129/tyler-wardhaugh/clojure/test/tw/weekly/c129_test.clj @@ -0,0 +1,10 @@ +(ns tw.weekly.c129-test + (:require [clojure.test :refer [deftest is testing]] + #_[tw.weekly.c129.t1 :refer []] + #_[tw.weekly.c129.t2 :refer []])) + +(deftest task-1 + (testing "Task 1, Root Distance")) + +(deftest task-2 + (testing "Task 2, Add Linked Lists")) -- cgit