factor/extra/benchmark/md5/md5.factor

8 lines
170 B
Factor

USING: checksums checksums.md5 sequences byte-arrays kernel ;
IN: benchmark.md5
: md5-file ( -- )
2000000 iota >byte-array md5 checksum-bytes drop ;
MAIN: md5-file