From 60425f6658cf6727cbdee712628c76cd76c6d7e3 Mon Sep 17 00:00:00 2001 From: xenia Date: Sun, 4 Dec 2022 00:32:38 -0500 Subject: [PATCH] day 4: genious solution --- 4.rkt | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/4.rkt b/4.rkt index eadf078..8132ee1 100644 --- a/4.rkt +++ b/4.rkt @@ -5,16 +5,10 @@ ;; solution for day 4 (define (part1 input) - (for*/sum ([line (in-list input)] - [u (in-value (apply is:union line))] - #:when (member u line)) - 1)) + (count #{member (apply is:union %) %} input)) (define (part2 input) - (for*/sum ([line (in-list input)] - [i (in-value (apply is:intersect line))] - #:unless (zero? (is:count i))) - 1)) + (count #{is:get-integer (apply is:intersect %)} input)) (define (parse fname) (for/list ([line (in-list (file->lines fname))])