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

---
 day5/part1.clj | 75 ----------------------------------------------------------
 1 file changed, 75 deletions(-)
 delete mode 100644 day5/part1.clj

(limited to 'day5/part1.clj')

diff --git a/day5/part1.clj b/day5/part1.clj
deleted file mode 100644
index 95d04ba..0000000
--- a/day5/part1.clj
+++ /dev/null
@@ -1,75 +0,0 @@
-(require '[clojure.string :as str])
-
-(defn read-coords []
-  (let [line (read-line)]
-    (when (not (empty? line))
-      (mapv
-        #(Integer/parseInt %)
-        (str/split
-          line
-          #"[^\d]+"
-          )
-        )
-      )
-    )
-  )
-
-(defn read-all-coords []
-  (loop [cds [] c (read-coords)]
-    (if (empty? c)
-      cds
-      (recur
-        (conj cds c)
-        (read-coords)
-        )
-      )
-    )
-  )
-
-(defn mark-coord [cmap x y]
-  (update cmap y #(update % x inc))
-  )
-
-(defn mark-coords [cmap x1 y1 x2 y2]
-  (cond
-    (= y1 y2)
-    (reduce
-      #(mark-coord %1 %2 y1)
-      cmap
-      (range (min x1 x2) (inc (max x1 x2)))
-      )
-    (= x1 x2)
-    (reduce
-      #(mark-coord %1 x1 %2)
-      cmap
-      (range (min y1 y2) (inc (max y1 y2)))
-      )
-    :else
-    cmap
-    )
-  )
-
-(defn empty-map []
-  (vec
-    (repeat 1000
-      (vec (repeat 1000 0))
-      )
-    )
-  )
-
-(def finished-map
-  (reduce
-    #(apply (partial mark-coords %1) %2)
-    (empty-map)
-    (read-all-coords)
-    )
-  )
-
-(->> finished-map
-    (flatten)
-    (map dec)
-    (filter pos?)
-    (count)
-    (println)
-    )
-
-- 
cgit v1.2.3