blob: bc7bef6fcefbbe3731290ebe325597efd98ae1e9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
(require '[clojure.string :as str])
(def input (->> (slurp "./in")
(str/split-lines)
(split-with not-empty)))
(def points (->> (first input)
(map #(str/split % #","))
(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
#(conj %1
(if (< (second %2) chg)
%2
(seq [(first %2) (- (second %2) (* 2 (- (second %2) chg)))])
))
#{}
pts)
)
)
)
)
)
|
