sha1-benchmark ( -- )

Vocabulary

benchmark.sha1

Inputs

None

Outputs

None

Definition

USING: byte-arrays checksums checksums.sha kernel sequences ;

IN: benchmark.sha1

: sha1-benchmark ( -- )
    2000000 <iota> >byte-array sha1 checksum-bytes drop ;