Change some defs to let bindings

This commit is contained in:
Luke Hubmayer-Werner 2022-12-02 19:00:44 +10:30
parent bcc22ab414
commit 5adb6a2b0a
1 changed files with 11 additions and 7 deletions

View File

@ -6,16 +6,20 @@
(get [3 6 0] (mod (- our-move their-move) 3)))
(defn part-1-round-score
[move-pair]
(let [[opposing-move our-move] move-pair]
(def op (get move-map opposing-move))
(def us (get move-map our-move))
(let [
[opposing-move our-move] move-pair
op (get move-map opposing-move)
us (get move-map our-move)
]
(+ (draw-win-lose-score us op) us)))
(println (reduce + (map part-1-round-score move-pairs))) ; Part 1
(defn part-2-round-score
[move-pair]
(let [[opposing-move our-move] move-pair]
(def op (get move-map opposing-move))
(def us-move-offset (- (get move-map our-move) 2))
(def us (+ (mod (+ (- op 1) us-move-offset) 3) 1))
(let [
[opposing-move our-move] move-pair
op (get move-map opposing-move)
us-move-offset (- (get move-map our-move) 2)
us (+ (mod (+ (- op 1) us-move-offset) 3) 1)
]
(+ (draw-win-lose-score us op) us)))
(println (reduce + (map part-2-round-score move-pairs))) ; Part 2