mailbox-benchmark ( -- )

Vocabulary

benchmark.mailbox

Inputs

None

Outputs

None

Definition

USING: concurrency.mailboxes kernel sequences ;

IN: benchmark.mailbox

: mailbox-benchmark ( -- )
    100000 <iota> <hidden-mailbox> [ [ dup ] ] dip
    [ [ mailbox-put ] [ mailbox-get ] bi assert= ] curry compose
    each ;