Handbook
Glossary
squares ( n -- s )
Vocabulary
rosetta-code.happy-numbers
Inputs
n
an
object
Outputs
s
an
object
Definition
USING:
kernel
math
;
IN:
rosetta-code.happy-numbers
:
squares
( n -- s )
0
[
over
0
>
]
[
[
10
/mod
sq
]
dip
+
]
while
nip
;