From 1a0a9714f95767bdad046dbf32182967fcefb5f9 Mon Sep 17 00:00:00 2001
From: Oscar Najera <hi@oscarnajera.com>
Date: Wed, 8 Feb 2023 20:21:07 +0100
Subject: day02
---
AoC2022/02/solver.lisp | 33 +++++++++--------------
AoC2022/aocclj/src/aocclj/day02.clj | 46 ++++++++++++++++++++++++++++++++
AoC2022/aocclj/test/aocclj/core_test.clj | 7 +++++
3 files changed, 66 insertions(+), 20 deletions(-)
create mode 100644 AoC2022/aocclj/src/aocclj/day02.clj
(limited to 'AoC2022')
diff --git a/AoC2022/02/solver.lisp b/AoC2022/02/solver.lisp
index 52f611b..df1bedc 100644
--- a/AoC2022/02/solver.lisp
+++ b/AoC2022/02/solver.lisp
@@ -3,6 +3,9 @@
(defconstant results '((rock . scissors) (scissors . paper) (paper . rock))
"Win-lose pairs")
+(defun looses-to (play) (cdr (assoc play results)))
+(defun wins-to (play) (car (rassoc play results)))
+
(defun translate (play)
(case play
((A X) 'rock)
@@ -17,35 +20,25 @@
(defun match (my other)
(cond
+ ((eq my (wins-to other)) (values 6 'win))
((eq my other) (values 3 'draw))
- ((eq other (cdr (assoc my results))) (values 6 'win))
(t (values 0 'loose))))
-(defun strategy (play)
- (ecase play
- (X 'loose)
- (Y 'draw)
- (Z 'win)))
-
-(defun pick-move (strategy other)
- (ecase strategy
- (loose (cdr (assoc other results)))
- (draw other)
- (win (car (rassoc other results)))))
-
-(defun fixed-plays (oponent my)
- (declare (ignore oponent))
+(defun fixed-plays (my other)
+ (declare (ignore other))
(translate my))
-(defun reactive-plays (oponent my)
- (pick-move (strategy my) oponent))
+(defun reactive-plays (my other)
+ (ecase my
+ (X (looses-to other))
+ (Y other)
+ (Z (wins-to other))))
(defun solver (strategy)
(with-open-file (in "input")
- (loop :for n :from 0
- :for op = (translate (read in nil nil))
+ (loop :for op = (translate (read in nil nil))
:while op
- :for my = (funcall strategy op (read in nil nil))
+ :for my = (funcall strategy (read in nil nil) op)
:sum (+ (weight my) (match my op)))))
(fiveam:test results
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))
diff --git a/AoC2022/aocclj/test/aocclj/core_test.clj b/AoC2022/aocclj/test/aocclj/core_test.clj
index fd34fe0..c42285f 100644
--- a/AoC2022/aocclj/test/aocclj/core_test.clj
+++ b/AoC2022/aocclj/test/aocclj/core_test.clj
@@ -1,6 +1,7 @@
(ns aocclj.core-test
(:require [clojure.test :refer :all]
[aocclj.day01 :as day01]
+ [aocclj.day02 :as day02]
[aocclj.day03 :as day03]
[aocclj.day04 :as day04]
[aocclj.core :refer :all]
@@ -12,6 +13,12 @@
75622 day01/part1
213159 day01/part2)))
+(deftest day02
+ (let [input (str/split-lines (slurp "../02/input"))]
+ (are [expected function] (= expected (day02/solver function input))
+ 12535 day02/static-play
+ 15457 day02/reactive-play)))
+
(deftest day03
(let [input (str/split-lines (slurp "../03/input"))]
(are [expected function] (= expected (function input))
--
cgit v1.2.3