2008-04-30 17:11:55 -04:00
|
|
|
USING: checksums checksums.crc32 io.encodings.ascii io.files kernel math ;
|
2008-02-27 20:24:50 -05:00
|
|
|
IN: benchmark.crc32
|
|
|
|
|
2009-01-07 04:32:26 -05:00
|
|
|
: crc32-file ( -- )
|
2008-02-27 20:24:50 -05:00
|
|
|
10 [
|
2009-01-07 04:32:26 -05:00
|
|
|
"resource:basis/mime/multipart/multipart-tests.factor"
|
2008-04-30 17:11:55 -04:00
|
|
|
crc32 checksum-file drop
|
2008-02-27 20:24:50 -05:00
|
|
|
] times ;
|
|
|
|
|
2009-01-07 04:32:26 -05:00
|
|
|
MAIN: crc32-file
|