extra/benchmark/crc32/crc32.factor

   1 USING: checksums checksums.crc32 kernel math ;
   2 IN: benchmark.crc32
   3
   4 : crc32-benchmark ( -- )
   5     1,000 [
   6         "vocab:mime/multipart/multipart-tests.factor"
   7         crc32 checksum-file drop
   8     ] times ;
   9
  10 MAIN: crc32-benchmark