{:linters {:clojure-lsp/unused-public-var {:level :warning

:exclude #{advent-of-code.utils

part-1 part-2}

:ignore-test-references? true}}}

:dependencies [[org.clojure/clojure "1.12.0"]

[clojure.java.io :as io])

(:import (java.security MessageDigest)

(java.math BigInteger)))

(defn parse-ranges

"Parse each string of input as a range in the form 'M-N'"

[ranges]

(->> ranges

(map #(str/replace % "-" " "))

(map parse-out-longs)))

(defn manhattan-dist

"Calculate the Manhattan Distance between two points."

[p1 p2]

(+ (abs (- (first p1) (first p2)))

(abs (- (last p1) (last p2)))))

(defn first-duplicate

"Find first element of collection that is a duplicate"

[coll]

(reduce (fn [acc elt]

(if (get acc elt)

(reduced elt)

(assoc acc elt true)))

{} coll))

(loop [x n, [p & ps] primes, factors []]

(defn md5 [^String s]

(let [algorithm (MessageDigest/getInstance "MD5")

raw (.digest algorithm (.getBytes s))]

(format "%032x" (BigInteger. 1 raw))))

(defn create-field

"Create a NxM field as a matrix (vector of vectors). Fill with `with` or nil"

[N M & [with]]

(if (or (seq? with) (vector? with))

;; Ignore N/M and treat each element of `with` as a row in the field

(mapv vec with)

;; Otherwise, use the value of `with` itself (which may be nil)

(vec (repeat M (vec (repeat N with))))))

(defn display

"Display a matrix of characters, as if on a terminal or similar"

[lines]

(println (str/join "\n" (map #(str/join %) lines))))