diff options
| author | Oscar Najera <hi@oscarnajera.com> | 2023-02-05 21:59:47 +0100 |
|---|---|---|
| committer | Oscar Najera <hi@oscarnajera.com> | 2023-02-05 22:49:20 +0100 |
| commit | 57e563bf8f4fae7364118619318b338f16792473 (patch) | |
| tree | c21701f70f1440fa8078531929e883f4437e9577 /AoC2022/aocclj | |
| parent | 4daf41bd69e01f137be90881ec419b3c045a2ec5 (diff) | |
| download | scratch-57e563bf8f4fae7364118619318b338f16792473.tar.gz scratch-57e563bf8f4fae7364118619318b338f16792473.tar.bz2 scratch-57e563bf8f4fae7364118619318b338f16792473.zip | |
working with more stuff
Diffstat (limited to 'AoC2022/aocclj')
| -rw-r--r-- | AoC2022/aocclj/src/aocclj/day01.clj | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/AoC2022/aocclj/src/aocclj/day01.clj b/AoC2022/aocclj/src/aocclj/day01.clj index 8fca2e6..df6d101 100644 --- a/AoC2022/aocclj/src/aocclj/day01.clj +++ b/AoC2022/aocclj/src/aocclj/day01.clj @@ -2,17 +2,16 @@ (:require [clojure.string :as str])) (defn preprocess [input] - (transduce + (sequence (comp (map parse-long) (partition-by nil?) (take-nth 2) (map (partial reduce +))) - conj input)) (defn part1 [input] - (apply max (preprocess input))) + (reduce max (preprocess input))) (defn part2 [input] - (->> input preprocess sort (take 3) (apply +))) + (->> input preprocess (sort >) (take 3) (reduce +))) |