Handbook
Glossary
?register ( acc seq -- )
Vocabulary
project-euler.265
Inputs
acc
an
object
seq
an
object
Outputs
None
Definition
USING:
kernel
math
math.functions
sequences
sets
;
IN:
project-euler.265
:
?register
( acc seq -- )
complete
rotate-bits
dup
[
2
N
^
mod
]
map
all-unique?
[
minimum
swap
push
]
[
2drop
]
if
;