Handbook
Glossary
euler100 ( -- answer )
Vocabulary
project-euler
.
100
Inputs
None
Outputs
answer
an
object
Definition
USING:
kernel
math
math.functions
;
IN:
project-euler.100
:
euler100
( -- answer )
1 1
[
dup
dup
1
-
*
2
*
10 24
^
<=
]
[
[
6
*
swap
-
2
-
]
1check
]
while
nip
;