refactor

2024/src/core.clj

@@ -27,10 +27,15 @@
         col (range (count (get list-of-lists row)))]
     [row col]))
 
-(defn insert-vec [v idx el]
+(defn insert-at-idx [coll idx el]
-  (into [] (concat (take idx v)
+  (concat (take idx coll)
-                   (list el)
+          (list el)
-                   (drop idx v))))
+          (drop idx coll)))
 
 (defn bool->binary [condition]
   (if condition 1 0))
+
+(defn mmap
+  "map map"
+  [f coll]
+  (map (partial map f) coll))

2024/src/day04.clj

@@ -20,7 +20,7 @@
                     [(- row offset) (+ col offset)]
                     [(+ row offset) (- col offset)]
                     [(+ row offset) (+ col offset)]])
-                 (map (partial map get-char))
+                 (c/mmap get-char)
                  (apply map vector)
                  (filter #(= % (seq "XMAS")))
                  count)))
@@ -32,7 +32,7 @@
      (filter (fn [[row col]]
                (->> [[[(dec row) (dec col)] [(inc row) (inc col)]]
                      [[(inc row) (dec col)] [(dec row) (inc col)]]]
-                    (map (partial map get-char))
+                    (c/mmap get-char)
                     (map set)
                     (apply = #{\M \S}))))
      count)

2024/src/day05.clj

@@ -31,7 +31,7 @@
                                (map #(.indexOf acc %))
                                (filter #(not= % -1))
                                not-empty)]
-              (c/insert-vec acc (apply min idxs) el)
+              (into [] (c/insert-at-idx acc (apply min idxs) el))
               (conj acc el)))
           [] coll))