toggle-all-multiples ( doors -- )

Vocabulary

rosetta-code.100-doors

Inputs

doors

an object

Outputs

None

Definition

USING: kernel ranges sequences ;

IN: rosetta-code.100-doors

: toggle-all-multiples ( doors -- )
    [ number-of-doors [1..b] ] dip [ toggle-multiples ] curry
    each ;