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

2013-04-08 07:17:37 -07:00 · 2013-04-08 07:17:37 -07:00 · 5980d660bc
parent 0431acf97e
commit 5980d660bc
1 changed files with 1 additions and 4 deletions
--- a/extra/benchmark/sum-file/sum-file.factor
+++ b/extra/benchmark/sum-file/sum-file.factor
@ -8,11 +8,8 @@ IN: benchmark.sum-file
 ] with-file-writer
 >>

-: sum-file-loop ( n -- n' )
-    readln [ string>number + sum-file-loop ] when* ;
-
 : sum-file ( file -- n )
-    ascii [ 0 sum-file-loop ] with-file-reader ;
+    ascii [ 0 [ string>number + ] each-line ] with-file-reader ;

 : sum-file-benchmark ( -- )
    15 [