From 5980d660bcdb11c2420d37177b5ee4be14c12b86 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 8 Apr 2013 07:17:37 -0700 Subject: [PATCH] benchmark.sum-file: simpler, more idiomatic, faster. --- extra/benchmark/sum-file/sum-file.factor | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/extra/benchmark/sum-file/sum-file.factor b/extra/benchmark/sum-file/sum-file.factor index e1ce2b76fb..b7b37d09b6 100644 --- 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 [