aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--challenge-180/tyler-wardhaugh/clojure/README.md4
-rw-r--r--challenge-180/tyler-wardhaugh/clojure/src/c180/t2.clj10
-rw-r--r--challenge-180/tyler-wardhaugh/clojure/test/c180/t2_test.clj5
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)))))