2009-05-17 18:58:36 -04:00
|
|
|
USING: checksums checksums.sha sequences byte-arrays kernel ;
|
2008-01-14 16:43:33 -05:00
|
|
|
IN: benchmark.sha1
|
|
|
|
|
|
2012-07-19 20:35:47 -04:00
|
|
|
: sha1-benchmark ( -- )
|
2009-04-17 18:55:01 -04:00
|
|
|
2000000 iota >byte-array sha1 checksum-bytes drop ;
|
2008-01-14 16:43:33 -05:00
|
|
|
|
2012-07-19 20:35:47 -04:00
|
|
|
MAIN: sha1-benchmark
|
