dlists-benchmark ( -- )

Vocabulary

benchmark.dlists

Inputs

None

Outputs

None

Definition

USING: deques dlists kernel math sequences ;

IN: benchmark.dlists

: dlists-benchmark ( -- )
    5000 <iota> [
        [ <iota> 0 swap >dlist [ + ] slurp-deque ]
        [ dup 1 - * 2 / ] bi assert=
    ] each ;