Handbook
Glossary
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
;