toggle-multiples ( n doors -- )

Vocabulary

rosetta-code.100-doors

Inputs

n	an object
doors	an object

Outputs

None

Definition

USING: kernel sequences ;

IN: rosetta-code.100-doors

: toggle-multiples ( n doors -- )
    [ multiples ] dip [ [ not ] change-nth ] curry each ;