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

USING: io io.files math math.parser kernel prettyprint
benchmark.random io.encodings.ascii ;
IN: benchmark.sum-file

: sum-file-loop ( n -- n' )
    readln [ string>number + sum-file-loop ] when* ;

: sum-file ( file -- )
    ascii [ 0 sum-file-loop ] with-file-reader . ;

: sum-file-main ( -- )
    5 [ random-numbers-path sum-file ] times ;

MAIN: sum-file-main
New benchmarks and UI improvements 2008-02-27 20:24:50 -05:00			`USING: io io.files math math.parser kernel prettyprint`
Merge branch 'master' of git://factorcode.org/git/factor into unicode Conflicts: core/io/files/files-docs.factor core/io/files/files-tests.factor core/io/files/files.factor core/listener/listener.factor extra/benchmark/sum-file/sum-file.factor extra/bootstrap/image/upload/upload.factor extra/http/server/templating/templating.factor extra/logging/server/server.factor extra/smtp/smtp.factor extra/tools/deploy/macosx/macosx.factor extra/tools/disassembler/disassembler.factor extra/webapps/file/file.factor 2008-02-29 02:20:44 -05:00			`benchmark.random io.encodings.ascii ;`
Initial import 2007-09-20 18:09:08 -04:00			`IN: benchmark.sum-file`

			`: sum-file-loop ( n -- n' )`
			`readln [ string>number + sum-file-loop ] when* ;`

Fix benchmark.knucleotide 2007-11-25 00:50:12 -05:00			`: sum-file ( file -- )`
putting encodings on all file readers/writers 2008-02-16 23:17:41 -05:00			`ascii [ 0 sum-file-loop ] with-file-reader . ;`
Initial import 2007-09-20 18:09:08 -04:00
			`: sum-file-main ( -- )`
Tweak some benchmark parameters 2009-04-17 18:55:01 -04:00			`5 [ random-numbers-path sum-file ] times ;`
Initial import 2007-09-20 18:09:08 -04:00
			`MAIN: sum-file-main`