heap-test ( -- )

Vocabulary

benchmark.heaps

Inputs

None

Outputs

None

Definition

USING: heaps kernel math sequences ;

IN: benchmark.heaps

: heap-test ( -- )
    <min-heap> data
    [ [ dup pick heap-push ] each ]
    [ length [ dup heap-pop* ] times ] bi drop ;