day 3: less spaghet

3.rkt

@@ -4,33 +4,27 @@
 
 ;; solution for day 3
 
-(define prios (string->list "_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))
+(define priorities
+  (string->list "_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))
 
 (define (part1 input)
   (for/sum ([line (in-list input)])
-    (define len (string-length line))
+    (define-values [left right] (split-at line (/ (length line) 2)))
-    (define h1 (substring line 0 (/ len 2)))
+    (~>> (set-intersect left right)
-    (define h2 (substring line (/ len 2) len))
+         (set-first)
-    (define g1 (list->set (string->list h1)))
+         (index-of priorities))))
-    (define g2 (list->set (string->list h2)))
-    (define both (set-intersect g1 g2))
-    (index-of prios (first (set->list both)))))
-
 
 (define (part2 input)
-  (displayln (length input))
+  (match input
-  (for/sum ([i (in-range 0 (length input) 3)])
+    ['() 0]
-    (define l1 (list-ref input (+ i 0)))
+    [(list* a b c rst)
-    (define l2 (list-ref input (+ i 1)))
+     (+ (~>> (set-intersect a b c)
-    (define l3 (list-ref input (+ i 2)))
+             (set-first)
-    (define g1 (list->set (string->list l1)))
+             (index-of priorities))
-    (define g2 (list->set (string->list l2)))
+        (part2 rst))]))
-    (define g3 (list->set (string->list l3)))
-    (define both (set-intersect (set-intersect g1 g2 ) g3))
-    (index-of prios (first (set->list both)))))
 
 (define (parse fname)
-  (file->lines fname))
+  (map string->list (file->lines fname)))
 
 (module+ main
   (define input (parse "inputs/3"))