From ebe18c00b0ccbc2df6aece9ede542fab149a38de Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 1 Dec 2018 11:33:20 -0800 Subject: [PATCH] uni star --- 2018/01.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/2018/01.rkt b/2018/01.rkt index fba573a..1dc3bc5 100644 --- a/2018/01.rkt +++ b/2018/01.rkt @@ -6,10 +6,10 @@ (define frequencies (map string->number (port->lines fp))) -(define (*) +(define (★) (apply + frequencies)) -(define (**) +(define (★★) (for/fold ([last-sum 0] [sums (set)] #:result last-sum) @@ -19,5 +19,5 @@ (module+ main (require rackunit) - (check-equal? (time (*)) 454) - (check-equal? (time (**)) 566)) \ No newline at end of file + (check-equal? (time (★)) 454) + (check-equal? (time (★★)) 566)) \ No newline at end of file