steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

benchmark.sum-file: simpler, more idiomatic, faster.

db4
John Benediktsson 2013-04-08 07:17:37 -07:00
parent 0431acf97e
commit 5980d660bc
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/benchmark/sum-file/sum-file.factor
View File

@ -8,11 +8,8 @@ IN: benchmark.sum-file
] with-file-writer ] with-file-writer
>> >>
: sum-file-loop ( n -- n' )
readln [ string>number + sum-file-loop ] when* ;
: sum-file ( file -- n ) : sum-file ( file -- n )
ascii [ 0 sum-file-loop ] with-file-reader ; ascii [ 0 [ string>number + ] each-line ] with-file-reader ;
: sum-file-benchmark ( -- ) : sum-file-benchmark ( -- )
15 [ 15 [