diff options
| -rw-r--r-- | challenge-081/tyler-wardhaugh/clojure/src/tw/weekly/c81/t1.clj | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/challenge-081/tyler-wardhaugh/clojure/src/tw/weekly/c81/t1.clj b/challenge-081/tyler-wardhaugh/clojure/src/tw/weekly/c81/t1.clj index 13a382f7c6..d170171616 100644 --- a/challenge-081/tyler-wardhaugh/clojure/src/tw/weekly/c81/t1.clj +++ b/challenge-081/tyler-wardhaugh/clojure/src/tw/weekly/c81/t1.clj @@ -15,6 +15,7 @@ is-substring (fn [s] (= large (reduce str (-> (quot large-len (count s)) (repeat s)))))] (->> (reductions str "" small) (drop 1) + (filter #(zero? (rem large-len (count %)))) (filter is-substring)))) (defn -main |