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

   1 USING: io io.files math math.parser kernel prettyprint ;
   2 IN: benchmark.sum-file
   3
   4 : sum-file-loop ( n -- n' )
   5     readln [ string>number + sum-file-loop ] when* ;
   6
   7 : sum-file ( file -- n )
   8     <file-reader> [ 0 sum-file-loop ] with-stream . ;
   9
  10 : sum-file-main ( -- )
  11     home "sum-file-in.txt" path+ sum-file ;
  12
  13 MAIN: sum-file-main