clear-flags ( step i seq -- )

Vocabulary

benchmark.nsieve

Inputs

step	an object
i	an object
seq	an object

Outputs

None

Definition

USING: kernel math sequences sequences.private ;

IN: benchmark.nsieve

: clear-flags ( step i seq -- )
    2dup length >=
    [ 3drop ]
    [ f 2over set-nth-unsafe [ over + ] dip clear-flags ] if ;
    inline recursive