14 lines
320 B
Factor
14 lines
320 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 -- )
|
|
[ 0 sum-file-loop ] with-file-reader . ;
|
|
|
|
: sum-file-main ( -- )
|
|
home "sum-file-in.txt" path+ sum-file ;
|
|
|
|
MAIN: sum-file-main
|