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

avoid allocation

Browse Source
master
Matthew Butterick 7 years ago
parent 8409ba623e
commit be1991b224
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File

6
2017/d8/main.rkt
Unescape Escape View File

@ -11,8 +11,10 @@
(define (max-arg vals) (argmax cdr (hash->list vals))) (define (max-arg vals) (argmax cdr (hash->list vals)))
(define max-seen 0) (define max-seen 0)
(define (set-val! key updater) (define (set-val! key updater)
(hash-update! vals key updater 0) (hash-update! vals key (λ (val)
(set! max-seen (max max-seen (cdr (max-arg vals))))) (define new-val (updater val))
(set! max-seen (max max-seen new-val))
new-val) 0))
(provide >= <= < > ==) (provide >= <= < > ==)
(define-macro-cases cmp (define-macro-cases cmp