suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix benchmark on empty input

Browse Source
This commit is contained in:
Matthew Flatt 2012-11-15 05:06:07 -07:00
parent 6ee62ec5ad
commit 719ada1baa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/racket/benchmarks/shootout/k-nucleotide.rkt
View File

@ -25,7 +25,7 @@
(real->decimal-string (* 100 (/ (cdr a) total)) 3))))) (real->decimal-string (* 100 (/ (cdr a) total)) 3)))))
(define (write-one-freq table key) (define (write-one-freq table key)
(let ([cnt (hash-ref table key 0)]) (let ([cnt (hash-ref table key (box 0))])
(printf "~a\t~a\n" (unbox cnt) key))) (printf "~a\t~a\n" (unbox cnt) key)))
(define dna (define dna