openssl-sha1-benchmark ( -- )

Vocabulary

benchmark.sha1

Inputs

None

Outputs

None

Definition

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

IN: benchmark.sha1

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