diff options
| author | Tyler Wardhaugh <tyler.wardhaugh@gmail.com> | 2020-10-10 23:15:51 -0700 |
|---|---|---|
| committer | Tyler Wardhaugh <tyler.wardhaugh@gmail.com> | 2020-10-10 23:15:51 -0700 |
| commit | f4b71c8b383f0a486fbacb3fcbeb386c1c30b2a2 (patch) | |
| tree | aec559c9eba58bfb70c6c57a0901f5d23aeb5c5b | |
| parent | afec5a7e05a9960b1f60be44a77fda8f771c9504 (diff) | |
| download | perlweeklychallenge-club-f4b71c8b383f0a486fbacb3fcbeb386c1c30b2a2.tar.gz perlweeklychallenge-club-f4b71c8b383f0a486fbacb3fcbeb386c1c30b2a2.tar.bz2 perlweeklychallenge-club-f4b71c8b383f0a486fbacb3fcbeb386c1c30b2a2.zip | |
Ch81/Task 1 (Clojure): optimize algorithm
Only check base strings whose length is evenly divisible by the target
string's length. Other lengths cannot be correct, so we don't need to
check them.
| -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 |