futures1-benchmark ( -- )

Vocabulary

benchmark.futures1

Inputs

None

Outputs

None

Definition

USING: concurrency.futures kernel sequences ;

IN: benchmark.futures1

: futures1-benchmark ( -- )
    250000 <iota>
    [ [ [ ] curry future ] map [ ?future ] map-sum ] [ sum ] bi
    assert= ;