birdulon
/
AdventOfCode
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Undo some debug bindings

This commit is contained in:
Luke Hubmayer-Werner 2022-12-03 21:00:10 +10:30
parent d07a16bbf9
commit dc2af9d6b0
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
2022/day3.clj
View File

@ -29,10 +29,6 @@
(if (<= (count sequence) num)
[sequence]
(let [[head tail] (split-at num sequence)] (lazy-seq (cons head (chunker tail num))))))
(defn three-elves [lines] (
let [
sets (map set lines)
common (apply clojure.set/intersection sets)
]
(priority (first common))))
(defn three-elves [lines]
(priority (first (apply clojure.set/intersection (map set lines)))))
(println (reduce + (map three-elves (chunker elves 3))))