From 96408d596363678b9f606cb1b3ab589c439e1400 Mon Sep 17 00:00:00 2001
From: "J.J" <thechairman@thechairman.info>
Date: Fri, 22 Dec 2023 12:11:14 -0500
Subject: day 22 racket cleanup

---
 aoc2023-other/day-22/day-22.rkt | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/aoc2023-other/day-22/day-22.rkt b/aoc2023-other/day-22/day-22.rkt
index 93c77f2..2abe4bf 100644
--- a/aoc2023-other/day-22/day-22.rkt
+++ b/aoc2023-other/day-22/day-22.rkt
@@ -14,9 +14,14 @@
 (define input (fetch-aoc-input (find-session) 2023 22 #:cache #true))
 
 (define coordinate/p
-  (do [coords <- (many/p integer/p #:sep (char/p #\,) #:min 3 #:max 3)] (pure (apply posn coords))))
+  (do [coords <- (many/p integer/p #:sep (char/p #\,) #:min 3 #:max 3)]
+    (pure (apply posn coords))))
 
-(define block/p (do [from <- coordinate/p] (char/p #\~) [to <- coordinate/p] (pure (cons from to))))
+(define block/p
+  (do [from <- coordinate/p]
+    (char/p #\~)
+    [to <- coordinate/p]
+    (pure (cons from to))))
 
 (define starting-blocks
   (~> (for/list ([line (in-list (string-split input "\n"))]
-- 
cgit v1.2.3