From 48e35ad3b0b0c62f936784e4aca70b17c3b0e3f9 Mon Sep 17 00:00:00 2001
From: Hunky Jimpjorps <thechairman@thechairman.info>
Date: Fri, 2 Feb 2024 17:05:12 -0500
Subject: renaming

---
 aoc2023-racket/day-13/day-13.rkt | 47 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 aoc2023-racket/day-13/day-13.rkt

(limited to 'aoc2023-racket/day-13/day-13.rkt')

diff --git a/aoc2023-racket/day-13/day-13.rkt b/aoc2023-racket/day-13/day-13.rkt
new file mode 100644
index 0000000..47718f8
--- /dev/null
+++ b/aoc2023-racket/day-13/day-13.rkt
@@ -0,0 +1,47 @@
+#lang racket
+
+(require advent-of-code
+         threading)
+
+(define input
+  (~>(fetch-aoc-input (find-session) 2023 13 #:cache #true)
+     (string-split "\n\n")
+     (map (λ~> string-split) _)))
+
+(define (do-symmetric? lefts rights errs)
+  (cond
+    [(empty? rights) #f]
+    [else
+     (define found-errs
+       (for/sum ([l (in-string (string-join lefts ""))]
+                 [r (in-string (string-join rights ""))]
+                 #:unless (char=? l r))
+         1))
+     (if (= errs found-errs)
+         (length lefts)
+         (do-symmetric? (cons (first rights) lefts)
+                        (rest rights)
+                        errs))]))
+
+(define (symmetric? xss errs)
+  (do-symmetric? (list (first xss)) (rest xss) errs))
+
+(define (transpose strs)
+  (~> strs
+      (map string->list _)
+      (apply map list _)
+      (map list->string _)))
+
+(define (find-symmetry-score xss errs)
+  (cond
+    [(symmetric? xss errs) => (curry * 100)]
+    [else (symmetric? (transpose xss) errs)]))
+
+;; part 1
+(for/sum ([note (in-list input)])
+  (find-symmetry-score note 0))
+
+;; part 2
+(for/sum ([note (in-list input)])
+  (find-symmetry-score note 1))
+
-- 
cgit v1.2.3