Handbook
Glossary
(happy?) ( n1 n2 -- ? )
Vocabulary
rosetta-code.happy-numbers
Inputs
n1
an
object
n2
an
object
Outputs
?
an
object
Definition
USING:
combinators
kernel
;
IN:
rosetta-code.happy-numbers
:
(happy?)
( n1 n2 -- ? )
[
squares
]
[
squares
squares
]
bi*
{
{
[
dup
1
=
]
[
2drop
t
]
}
{
[
2dup
=
]
[
2drop
f
]
}
[
(happy?)
]
}
cond
;