clyne
/
advent-of-code
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

day4: made more concise

Browse Source
master
Clyne 3 years ago
parent d9394b84b1
commit 136b7866f0
2 changed files with 80 additions and 106 deletions
Show Stats Download Patch File Download Diff File

70
day4/part1.clj
Unescape Escape View File

@ -1,54 +1,43 @@
(require '[clojure.string :as str]) (require '[clojure.string :as str])
(def calls (def calls
(map (->> (read-line)
#(Integer/parseInt %) (#(str/split % #","))
(-> (read-line) (map #(Integer/parseInt %))
(str/split #",")
) )
) )
)
;(println calls)
(defn read-board [] (defn read-board []
(when (not (nil? (read-line))) (when (some? (read-line))
(vec (mapv
(for [x (range 0 5)] (fn [line] (->> line
(-> (read-line)
(concat " ")
(str/join) (str/join)
(str/trim) (str/trim)
(str/split #"\s+") (#(str/split % #"\s+"))
(#(map (fn [l] (Integer/parseInt l)) %)) (map #(Integer/parseInt %))
) )
)) )
(repeatedly 5 read-line)
) )
) )
(defn bingo-row? [row]
(every? nil? row)
) )
(defn bingo? [board] (defn bingo? [board]
(not (some?
(nil?
(some (some
bingo-row? #(every? nil? %)
(concat (concat board (apply mapv vector board))
board
(apply mapv vector board)
)
) )
) )
) )
(defn bingo-mark [board n]
(mapv (partial replace {n nil}) board)
) )
(defn get-bingo [_board] (defn get-bingo [init-board]
(loop (loop [board init-board nums calls turns 1]
[board _board nums calls turns 1] (let [new-board (bingo-mark board (first nums))]
(let [new-board (vec (for [r (range 0 5)]
(replace {(first nums) nil} (get board r))))]
(if (bingo? new-board) (if (bingo? new-board)
[new-board (first nums) turns] [new-board (first nums) turns]
(recur new-board (rest nums) (inc turns)) (recur new-board (rest nums) (inc turns))
@ -57,28 +46,25 @@
) )
) )
(def best (atom [999 0])) (loop [best [999 0] board (read-board)]
(if (nil? board)
(loop [board (read-board)] (println best)
(when (not (nil? board))
(let [bingo (get-bingo board)] (let [bingo (get-bingo board)]
(when (< (get bingo 2) (first @best)) (recur
(reset! best (if (< (get bingo 2) (first best))
[(get bingo 2) [(get bingo 2)
(*
(second bingo)
(->> (first bingo) (->> (first bingo)
(flatten) (flatten)
(filter some?) (filter some?)
(apply +) (apply +)
(* (second bingo))
) )
)] ]
best
) )
(read-board)
) )
) )
(recur (read-board))
) )
) )
(println @best)

68
day4/part2.clj
Unescape Escape View File

@ -1,52 +1,43 @@
(require '[clojure.string :as str]) (require '[clojure.string :as str])
(def calls (def calls
(map (->> (read-line)
#(Integer/parseInt %) (#(str/split % #","))
(-> (read-line) (map #(Integer/parseInt %))
(str/split #",")
)
) )
) )
(defn read-board [] (defn read-board []
(when (not (nil? (read-line))) (when (some? (read-line))
(vec (mapv
(for [x (range 0 5)] (fn [line] (->> line
(-> (read-line)
(concat " ")
(str/join) (str/join)
(str/trim) (str/trim)
(str/split #"\s+") (#(str/split % #"\s+"))
(#(map (fn [l] (Integer/parseInt l)) %)) (map #(Integer/parseInt %))
) )
)) )
(repeatedly 5 read-line)
) )
) )
(defn bingo-row? [row]
(every? nil? row)
) )
(defn bingo? [board] (defn bingo? [board]
(not (some?
(nil?
(some (some
bingo-row? #(every? nil? %)
(concat (concat board (apply mapv vector board))
board
(apply mapv vector board)
)
) )
) )
) )
(defn bingo-mark [board n]
(mapv (partial replace {n nil}) board)
) )
(defn get-bingo [_board] (defn get-bingo [init-board]
(loop (loop [board init-board nums calls turns 1]
[board _board nums calls turns 1] (let [new-board (bingo-mark board (first nums))]
(let [new-board (vec (for [r (range 0 5)]
(replace {(first nums) nil} (get board r))))]
(if (bingo? new-board) (if (bingo? new-board)
[new-board (first nums) turns] [new-board (first nums) turns]
(recur new-board (rest nums) (inc turns)) (recur new-board (rest nums) (inc turns))
@ -55,28 +46,25 @@
) )
) )
(def best (atom [0 0])) (loop [best [0 0] board (read-board)]
(if (nil? board)
(loop [board (read-board)] (println best)
(when (not (nil? board))
(let [bingo (get-bingo board)] (let [bingo (get-bingo board)]
(when (> (get bingo 2) (first @best)) (recur
(reset! best (if (> (get bingo 2) (first best))
[(get bingo 2) [(get bingo 2)
(*
(second bingo)
(->> (first bingo) (->> (first bingo)
(flatten) (flatten)
(filter some?) (filter some?)
(apply +) (apply +)
(* (second bingo))
) )
)] ]
best
) )
(read-board)
) )
) )
(recur (read-board))
) )
) )
(println @best)

Write Preview
Loading…
Cancel
Save