2007-09-20 18:09:08 -04:00
|
|
|
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* ;
|
|
|
|
|
|
2007-11-25 00:50:12 -05:00
|
|
|
: sum-file ( file -- )
|
2007-09-20 18:09:08 -04:00
|
|
|
<file-reader> [ 0 sum-file-loop ] with-stream . ;
|
|
|
|
|
|
|
|
|
|
: sum-file-main ( -- )
|
|
|
|
|
home "sum-file-in.txt" path+ sum-file ;
|
|
|
|
|
|
|
|
|
|
MAIN: sum-file-main
|
