extra/benchmark/md5/md5.factor

   1 USING: checksums checksums.md5 sequences byte-arrays kernel ;
   2 IN: benchmark.md5
   3
   4 : md5-benchmark ( -- )
   5     2000000 iota >byte-array md5 checksum-bytes drop ;
   6
   7 MAIN: md5-benchmark