diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2021-12-14 22:04:10 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2021-12-14 22:04:10 -0500 |
| commit | d1bb4af495094eec997cbe7e99a382877c7c7b5a (patch) | |
| tree | 54af62b0eab06b585134e70d0d2800c7688edfb5 | |
| parent | 140fc0f3615003510fb8b9b99fdd4dda1270f041 (diff) | |
checking out 2020
| -rw-r--r-- | year2020/day1/part1.clj | 9 | ||||
| -rw-r--r-- | year2020/day1/part2.clj | 20 |
2 files changed, 29 insertions, 0 deletions
diff --git a/year2020/day1/part1.clj b/year2020/day1/part1.clj new file mode 100644 index 0000000..100c6d3 --- /dev/null +++ b/year2020/day1/part1.clj @@ -0,0 +1,9 @@ +(require 'clojure.set) + +(->> (slurp "./in") + clojure.string/split-lines + (map read-string) + ((juxt set (comp set #(map (partial - 2020) %)))) + (apply clojure.set/intersection) + (apply *) + (println)) diff --git a/year2020/day1/part2.clj b/year2020/day1/part2.clj new file mode 100644 index 0000000..0b6ef9d --- /dev/null +++ b/year2020/day1/part2.clj @@ -0,0 +1,20 @@ +(require 'clojure.set) + +(defn find-sum [sum lst] + (->> lst + ((juxt set (comp set #(map (partial - sum) %)))) + (apply clojure.set/intersection) + (vec))) + +(->> (slurp "./in") + clojure.string/split-lines + ((comp set (partial map read-string))) + ((fn [lst] + (reduce + #(let [fnd (find-sum (- 2020 %2) (clojure.set/difference lst #{%2}))] + (if (empty? fnd) %1 [%2 fnd])) + [] + lst))) + flatten + (apply *) + (println)) |