diff options
| author | Tyler Wardhaugh <tyler.wardhaugh@gmail.com> | 2022-09-02 22:37:34 -0700 |
|---|---|---|
| committer | Tyler Wardhaugh <tyler.wardhaugh@gmail.com> | 2022-09-03 17:51:46 -0700 |
| commit | 31df41a1c31792fbc950d1be9cddde3ba49d75ea (patch) | |
| tree | 9d11ad47dfededf7ded4b8b1353da7272837aef0 | |
| parent | c149e824df653422443e3eff5fa2be4954b43f86 (diff) | |
| download | perlweeklychallenge-club-31df41a1c31792fbc950d1be9cddde3ba49d75ea.tar.gz perlweeklychallenge-club-31df41a1c31792fbc950d1be9cddde3ba49d75ea.tar.bz2 perlweeklychallenge-club-31df41a1c31792fbc950d1be9cddde3ba49d75ea.zip | |
Ch180 (Clojure): Task 2
| -rw-r--r-- | challenge-180/tyler-wardhaugh/clojure/README.md | 4 | ||||
| -rw-r--r-- | challenge-180/tyler-wardhaugh/clojure/src/c180/t2.clj | 10 | ||||
| -rw-r--r-- | challenge-180/tyler-wardhaugh/clojure/test/c180/t2_test.clj | 5 |
3 files changed, 12 insertions, 7 deletions
diff --git a/challenge-180/tyler-wardhaugh/clojure/README.md b/challenge-180/tyler-wardhaugh/clojure/README.md index 97a81353be..7a3c8d3d5b 100644 --- a/challenge-180/tyler-wardhaugh/clojure/README.md +++ b/challenge-180/tyler-wardhaugh/clojure/README.md @@ -19,10 +19,10 @@ Run Task #2: $ clojure -M:t2 # ... or ... - $ bb run task-2 + $ bb run task-2 N I # Alternatively, to run it via Babashka: - $ bb run task-2-bb + $ bb run task-2-bb N I Run the project's tests (which are samples from the task descriptions): diff --git a/challenge-180/tyler-wardhaugh/clojure/src/c180/t2.clj b/challenge-180/tyler-wardhaugh/clojure/src/c180/t2.clj index 552f6aa8b8..e33dffb64d 100644 --- a/challenge-180/tyler-wardhaugh/clojure/src/c180/t2.clj +++ b/challenge-180/tyler-wardhaugh/clojure/src/c180/t2.clj @@ -1,11 +1,15 @@ (ns c180.t2 (:require [clojure.edn :as edn])) -(def DEFAULT-INPUT []) +(def DEFAULT-INPUT [[1 4 2 3 5] 3]) + +(defn trim-list + [coll n] + (filter #(< n %) 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)] - N)) + (let [[N I] (or (some->> args (map edn/read-string)) DEFAULT-INPUT)] + (println (trim-list N I)))) diff --git a/challenge-180/tyler-wardhaugh/clojure/test/c180/t2_test.clj b/challenge-180/tyler-wardhaugh/clojure/test/c180/t2_test.clj index 60d67ec12b..4e9db10ec1 100644 --- a/challenge-180/tyler-wardhaugh/clojure/test/c180/t2_test.clj +++ b/challenge-180/tyler-wardhaugh/clojure/test/c180/t2_test.clj @@ -1,7 +1,8 @@ (ns c180.t2-test (:require [clojure.test :refer [deftest is testing]] - [c180.t2 :refer []])) + [c180.t2 :refer [trim-list]])) (deftest task-2 (testing "Task 2 produces the correct result" - )) + (is (= '(4,5) (trim-list '(1,4,2,3,5) 3))) + (is (= '(9,6,8,5) (trim-list '(9,0,6,2,3,8,5) 4))))) |