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

---
 year2021/day13/part1.clj    | 30 +++++++++++++++++++++++++++
 year2021/day13/part2.clj    | 33 ++++++++++++++++++++++++++++++
 year2021/day13/partboth.clj | 49 +++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 112 insertions(+)
 create mode 100644 year2021/day13/part1.clj
 create mode 100644 year2021/day13/part2.clj
 create mode 100644 year2021/day13/partboth.clj

(limited to 'year2021/day13')

diff --git a/year2021/day13/part1.clj b/year2021/day13/part1.clj
new file mode 100644
index 0000000..c3f08d4
--- /dev/null
+++ b/year2021/day13/part1.clj
@@ -0,0 +1,30 @@
+(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)))
+                         (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)))
+
diff --git a/year2021/day13/part2.clj b/year2021/day13/part2.clj
new file mode 100644
index 0000000..6db6555
--- /dev/null
+++ b/year2021/day13/part2.clj
@@ -0,0 +1,33 @@
+(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]
+                    (->> (rest (second lst))
+                         (map #(-> %
+                                   (str/split #"=")
+                                   (update 0 (comp {\x 0 \y 1} last))
+                                   (update 1 read-string)))
+                         ))))))
+
+(defn print-grid [pts]
+  (doseq [p pts] (println (str/join [(first p) "," (second p)]))))
+
+(defn fold-point [idx chg pt]
+  (cond-> pt (> (get pt idx) chg) (update idx #(- % (* 2 (- % chg))))))
+
+(print-grid
+  (apply
+    (partial
+      reduce
+      #(let [ins (first %2)]
+         (set (map (partial fold-point (first %2) (second %2)) %1))))
+    input
+    ))
+
diff --git a/year2021/day13/partboth.clj b/year2021/day13/partboth.clj
new file mode 100644
index 0000000..c24980d
--- /dev/null
+++ b/year2021/day13/partboth.clj
@@ -0,0 +1,49 @@
+(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