clyne
/
advent-of-code
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

day13: make more concise

Browse Source
master
Clyne 3 years ago
parent 55387461c6
commit c54de0ebc6
2 changed files with 49 additions and 72 deletions
Show Stats Download Patch File Download Diff File

59
day13/part1.clj
Unescape Escape View File

@ -2,40 +2,29 @@
(def input (->> (slurp "./in") (def input (->> (slurp "./in")
(str/split-lines) (str/split-lines)
(split-with not-empty))) (split-with not-empty)
(def points (->> (first input) ((juxt
(map #(str/split % #",")) (fn [lst]
(map (partial map read-string))
(set)))
(def folds (->> (rest (second input))
(map #(str/split % #"="))
(map #(do [(last (first %)) (read-string (second %))]))))
(loop [fds (take 1 folds) pts points]
(if (empty? fds)
(println (count pts))
(recur
(rest fds)
(let [ins (first fds) chg (second ins)]
(if (= \x (first ins))
(reduce
#(conj %1
(if (< (first %2) chg)
%2
(seq [(- (first %2) (* 2 (- (first %2) chg))) (second %2)])))
#{}
pts)
(reduce (reduce
#(conj %1 #(conj %1 (mapv read-string (str/split %2 #",")))
(if (< (second %2) chg) #{} (first lst)))
%2 (fn [lst]
(seq [(first %2) (- (second %2) (* 2 (- (second %2) chg)))]) (->> (second lst)
)) (drop 1)
#{} (map #(-> %
pts) (str/split #"=")
) (update 0 (comp {\x 0 \y 1} last))
) (update 1 read-string)))
) (first)
) ))))))
)
(defn fold-point [idx chg pt]
(cond-> pt (> (get pt idx) chg) (update idx #(- % (* 2 (- % chg))))))
(let [instruction (second input)]
(->> (first input)
(map (partial fold-point (first instruction) (second instruction)))
(distinct)
(count)
(println)))

60
day13/part2.clj
Unescape Escape View File

@ -2,44 +2,32 @@
(def input (->> (slurp "./in") (def input (->> (slurp "./in")
(str/split-lines) (str/split-lines)
(split-with not-empty))) (split-with not-empty)
(def points (->> (first input) ((juxt
(map #(str/split % #",")) (fn [lst]
(map (partial map read-string)) (reduce
(set))) #(conj %1 (mapv read-string (str/split %2 #",")))
(def folds (->> (rest (second input)) #{} (first lst)))
(map #(str/split % #"=")) (fn [lst]
(map #(do [(last (first %)) (read-string (second %))])))) (->> (rest (second lst))
(map #(-> %
(str/split #"=")
(update 0 (comp {\x 0 \y 1} last))
(update 1 read-string)))
))))))
(defn print-grid [pts] (defn print-grid [pts]
(doseq [p pts] (println (str/join [(first p) "," (second p)]))) (doseq [p pts] (println (str/join [(first p) "," (second p)]))))
)
(loop [fds folds pts points] (defn fold-point [idx chg pt]
(if (empty? fds) (cond-> pt (> (get pt idx) chg) (update idx #(- % (* 2 (- % chg))))))
(print-grid pts)
(recur (print-grid
(rest fds) (apply
(let [ins (first fds) chg (second ins)] (partial
(if (= \x (first ins)) reduce
(reduce #(let [ins (first %2)]
#(conj %1 (set (map (partial fold-point (first %2) (second %2)) %1))))
(if (< (first %2) chg) input
%2
(seq [(- (first %2) (* 2 (- (first %2) chg))) (second %2)])))
#{}
pts)
(reduce
#(conj %1
(if (< (second %2) chg)
%2
(seq [(first %2) (- (second %2) (* 2 (- (second %2) chg)))])
)) ))
#{}
pts)
)
)
)
)
)

Write Preview
Loading…
Cancel
Save