Handbook
Glossary
happy-numbers ( n -- seq )
Vocabulary
rosetta-code.happy-numbers
Inputs
n
an
object
Outputs
seq
an
object
Definition
USING:
kernel
make
math
;
IN:
rosetta-code.happy-numbers
:
happy-numbers
( n -- seq )
[
0
[
over
0
>
]
[
dup
happy?
[
dup
,
[
1
-
]
dip
]
when
1
+
]
while
2drop
]
{
}
make
;