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

Fixed the sumcol benchmark to obey the new type for read-line.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-06-15 15:44:40 -04:00
parent 72ec18cc68
commit e0b880d1ea
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/typed/sumcol.rktl
View File

@ -1,4 +1,4 @@
(for/fold: : Number (for/fold: : Number
([acc : Number 0]) ([acc : Number 0])
([n : String (in-lines)]) ([n : (U String EOF) (in-lines)])
(+ acc (assert (string->number n)))) (+ acc (assert (string->number n))))