From 1a0a9714f95767bdad046dbf32182967fcefb5f9 Mon Sep 17 00:00:00 2001 From: Oscar Najera Date: Wed, 8 Feb 2023 20:21:07 +0100 Subject: day02 --- AoC2022/aocclj/src/aocclj/day02.clj | 46 +++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 AoC2022/aocclj/src/aocclj/day02.clj (limited to 'AoC2022/aocclj/src') diff --git a/AoC2022/aocclj/src/aocclj/day02.clj b/AoC2022/aocclj/src/aocclj/day02.clj new file mode 100644 index 0000000..73099d8 --- /dev/null +++ b/AoC2022/aocclj/src/aocclj/day02.clj @@ -0,0 +1,46 @@ +(ns aocclj.day02 + (:require [clojure.set :as set] + [clojure.string :as str])) + +(def loses-to {:rock :scissors :scissors :paper :paper :rock}) +(def wins-to (set/map-invert loses-to)) + +(defn translate [play] + (case play + (A X) :rock + (B Y) :paper + (C Z) :scissors)) + +(defn weight [play] + (case play + :rock 1 + :paper 2 + :scissors 3)) + +(defn match [my other] + (cond + (= my (wins-to other)) 6 + (= my other) 3 + :else 0)) + +(defn static-play [my-instruction other] + (translate my-instruction)) + +(defn reactive-play [my-instruction other] + (case my-instruction + X (loses-to other) + Y other + Z (wins-to other))) + +(defn score [strategy game-play] + (let [[oponent my] game-play + oponent (translate oponent) + my-play (strategy my oponent)] + (+ (weight my-play) (match my-play oponent)))) + +(defn solver [strategy input] + (transduce + (comp + (map #(map symbol (str/split % #" "))) + (map (partial score strategy))) + + input)) -- cgit v1.2.3