doors-main ( -- )

Vocabulary

rosetta-code.100-doors

Inputs

None

Outputs

None

Definition

USING: bit-arrays kernel math ;

IN: rosetta-code.100-doors

: doors-main ( -- )
    number-of-doors 1 + <bit-array>
    [ toggle-all-multiples ] [ print-doors ] bi ;