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

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