mbutterick
/
aoc-racket
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

uni star

Browse Source
master
Matthew Butterick 6 years ago
parent 13b356aee4
commit ebe18c00b0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

8
2018/01.rkt
Unescape Escape View File

@ -6,10 +6,10 @@
(define frequencies (define frequencies
(map string->number (port->lines fp))) (map string->number (port->lines fp)))
(define (*) (define (★)
(apply + frequencies)) (apply + frequencies))
(define (**) (define (★★)
(for/fold ([last-sum 0] (for/fold ([last-sum 0]
[sums (set)] [sums (set)]
#:result last-sum) #:result last-sum)
@ -19,5 +19,5 @@
(module+ main (module+ main
(require rackunit) (require rackunit)
(check-equal? (time (*)) 454) (check-equal? (time (★)) 454)
(check-equal? (time (**)) 566)) (check-equal? (time (★★)) 566))