count-numbers ( max listener -- )

Vocabulary

benchmark.beust2

Inputs

max	an object
listener	an object

Outputs

None

Definition

USING: kernel math sequences ;

IN: benchmark.beust2

:: count-numbers ( max listener -- )
    10 <iota> [ 1 + 1 1 0 max listener (count-numbers) ] any?
    drop ; inline