memoize-benchmark ( -- )

Vocabulary

benchmark.memoize

Inputs

None

Outputs

None

Definition

USING: kernel math sequences ;

IN: benchmark.memoize

: memoize-benchmark ( -- )
    1000 [
        1000 <iota> [
            mem0 [ mem1 ] keep [ mem2 ] 2keep [ mem3 ] 3keep
            mem4 drop
        ] each
    ] times ;