From 8d43e37df99f280377bed90284d6ac2428334804 Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Wed, 30 Nov 2022 19:55:31 -0500
Subject: move 2021 days to folder; update README
---
day13/partboth.clj | 49 -------------------------------------------------
1 file changed, 49 deletions(-)
delete mode 100644 day13/partboth.clj
(limited to 'day13/partboth.clj')
diff --git a/day13/partboth.clj b/day13/partboth.clj
deleted file mode 100644
index c24980d..0000000
--- a/day13/partboth.clj
+++ /dev/null
@@ -1,49 +0,0 @@
-(require '[clojure.string :as str])
-
-(def input (->> (slurp "./in")
- (str/split-lines)
- (split-with not-empty)
- ((juxt
- (fn [lst]
- (reduce
- #(conj %1 (mapv read-string (str/split %2 #",")))
- #{} (first lst)))
- (fn [lst]
- (->> (second lst)
- (drop 1)
- (map #(-> %
- (str/split #"=")
- (update 0 (comp {\x 0 \y 1} last))
- (update 1 read-string)))
- ))))))
-
-(defn fold-point [idx chg pt]
- (cond-> pt (> (get pt idx) chg) (update idx #(- % (* 2 (- % chg))))))
-
-(defn print-grid [pts]
- (let [xmax (inc (apply max (map first pts)))
- ymax (inc (apply max (map second pts)))]
- (doseq [y (range 0 ymax)]
- (println
- (str/join
- (for [x (range 0 xmax)] (if (contains? pts [x y]) \@ \ ))
- )))))
-
-; Part 1
-(let [instruction (first (second input))]
- (->> (first input)
- (map (partial fold-point (first instruction) (second instruction)))
- (distinct)
- (count)
- (println)))
-
-; Part 2
-(print-grid
- (apply
- (partial
- reduce
- #(let [ins (first %2)]
- (set (map (partial fold-point (first %2) (second %2)) %1))))
- input
- ))
-
--
cgit v1.2.3