stack-loop ( vec -- )

Vocabulary

benchmark.stack

Inputs

vec

an object

Outputs

None

Definition

USING: kernel math sequences ;

IN: benchmark.stack

: stack-loop ( vec -- )
    1000 [
        10000 [ dup pop dup pick push over push ] times 10000
        [ dup pop* ] times
    ] times drop ;