Handbook
Glossary
r-trunc? ( n -- ? )
Vocabulary
project-euler
.
037
.
private
Inputs
n
an
object
Outputs
?
an
object
Definition
USING:
kernel
math
math.primes
;
IN:
project-euler.037.private
:
r-trunc?
( n -- ? )
10
/i
dup
0
>
[
dup
prime?
[
r-trunc?
]
[
drop
f
]
if
]
[
drop
t
]
if
;