src/adventofcode2019/lib.clj

   1 (ns adventofcode2019.lib
   2   [:require [clojure.string :as str]
   3    [clojure.edn :as edn]
   4    [clojure.java.io :as io]
   5    [clojure.java.shell :refer [sh]]
   6    [clojure.data.priority-map :refer [priority-map-by]]])
   7
   8 (defn get-list-from-file
   9   ([file-name]
  10    (str/split-lines (str/trim (slurp file-name))))
  11   ([file-name split-regex]
  12    (str/split (str/trim (slurp file-name)) split-regex)))
  13
  14 (defn parse-int [n]
  15   (let [n-val (edn/read-string n)]
  16     (if (number? n-val)
  17       n-val
  18       (throw (Exception. "Not a number!")))))
  19
  20 (defmacro input-file []
  21   (let [bottom-ns (last (str/split (str *ns*) #"\."))]
  22     (str "resources/" bottom-ns)))
  23
  24 (defn manhattan-distance [[ax ay] [bx by]]
  25   (+ (Math/abs (- ax bx))
  26      (Math/abs (- ay by))))
  27
  28 (defn a-star
  29   "succ :: state -> [state]
  30   cost :: cost -> state -> cost
  31   heur :: state -> cost
  32   init :: state
  33   des? :: state -> bool"
  34   [succ cost heur init des?]
  35   (let [update-openl (fn [ol sn pt cs]
  36                        (reduce (fn [o p]
  37                                  (assoc o p [(cost cs p) (heur p)]))
  38                                ol (remove sn (succ pt))))
  39         openl (priority-map-by (fn [[ag ah] [bg bh]]
  40                                  (let [cmp (compare (+ ag ah) (+ bg bh))
  41                                        cmp-g (compare ag bg)
  42                                        cmp-h (compare ah bh)]
  43                                    (if-not (zero? cmp)
  44                                      cmp
  45                                      (if-not (zero? cmp-g)
  46                                        cmp-g
  47                                        cmp-h)))))]
  48     (loop [openl (assoc openl init [0 (heur init)])
  49            seen #{init}]
  50       (let [[point [dist _]] (peek openl)]
  51         (cond
  52           (empty? openl) [nil ##Inf]
  53           (des? point) [point dist]
  54           :else (let [openl (update-openl (pop openl) seen point dist)
  55                       seen (apply conj seen (keys openl))]
  56                   (recur openl seen)))))))
  57
  58 (defn mmap [f m]
  59   (zipmap (keys m) (map f (vals m))))
  60
  61 (def part1
  62   #(println (str "Part 1: " %)))
  63 (def part2
  64   #(println (str "Part 2: " %)))
  65
  66 ;; FIXME: this is still broken but i give up for now
  67 ; (defn --input-file [for-ns]
  68 ;   (let [bottom-ns (last (str/split for-ns #"\."))
  69 ;         input-url "https://adventofcode.com/2019/day/%d/input"
  70 ;         day-url (->> bottom-ns
  71 ;                      (drop 3)
  72 ;                      (str/join)
  73 ;                      (parse-int)
  74 ;                      (format input-url))
  75 ;         token (str/trim (slurp (io/resource "token")))
  76 ;         res-dir (-> (io/resource "token")
  77 ;                     (.getPath)
  78 ;                     (str/replace "token" bottom-ns))
  79 ;         cmd ["curl" "-s" "-b"
  80 ;              (format "\"session=%s\"" token)
  81 ;              day-url ">" res-dir]]
  82 ;     (if-let [input (io/resource bottom-ns)]
  83 ;             input
  84 ;             (do (apply sh cmd) nil))))
  85
  86 ; (defmacro input-file []
  87 ;   (--input-file (str *ns*)))