From 53ff2f5e958dce78188f9fcb10c6944c997b474d Mon Sep 17 00:00:00 2001 From: Tyler Wardhaugh Date: Mon, 28 Sep 2020 11:05:17 -0700 Subject: Ch73: fix bug in Task 1 and add more tests --- challenge-073/tyler-wardhaugh/clojure/src/tw/weekly/ch_1.clj | 2 +- challenge-073/tyler-wardhaugh/clojure/test/tw/weekly/c73_test.clj | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/challenge-073/tyler-wardhaugh/clojure/src/tw/weekly/ch_1.clj b/challenge-073/tyler-wardhaugh/clojure/src/tw/weekly/ch_1.clj index 8191b98372..d55d6f2e88 100644 --- a/challenge-073/tyler-wardhaugh/clojure/src/tw/weekly/ch_1.clj +++ b/challenge-073/tyler-wardhaugh/clojure/src/tw/weekly/ch_1.clj @@ -26,4 +26,4 @@ A (or (some->> args rest (map edn/read-string)) [1 5 0 2 9 3 7 6 4 8])] (cl-format true "~10a: (~{~a~^ ~}), size = ~d~%~10a: (~{~a~^ ~})~%" "Input" A S - "Output" (sequence (sliding-min 3) A)))) + "Output" (sequence (sliding-min S) A)))) diff --git a/challenge-073/tyler-wardhaugh/clojure/test/tw/weekly/c73_test.clj b/challenge-073/tyler-wardhaugh/clojure/test/tw/weekly/c73_test.clj index 37499e014c..a5bfee6ab0 100644 --- a/challenge-073/tyler-wardhaugh/clojure/test/tw/weekly/c73_test.clj +++ b/challenge-073/tyler-wardhaugh/clojure/test/tw/weekly/c73_test.clj @@ -7,6 +7,8 @@ (testing "Task 1" (are [size input output] (= (sequence (sliding-min size) input) output) 3 [1 5 0 2 9 3 7 6 4 8] (list 0 0 0 2 3 3 4 4) + 2 (range 4) (range 3) + 3 (range 10 0 -1) (range 8 0 -1) ))) (deftest ch-2 -- cgit