factor/extra/benchmark/sum-file/sum-file.factor

14 lines
331 B
Factor

USING: io io.files math math.parser kernel prettyprint ;
IN: benchmark.sum-file
: sum-file-loop ( n -- n' )
readln [ string>number + sum-file-loop ] when* ;
: sum-file ( file -- n )
<file-reader> [ 0 sum-file-loop ] with-stream . ;
: sum-file-main ( -- )
home "sum-file-in.txt" path+ sum-file ;
MAIN: sum-file-main