Handbook
Glossary
sum-digits ( n -- x )
Vocabulary
benchmark.ant
Inputs
n
an
object
Outputs
x
an
object
Definition
USING:
kernel
math
;
IN:
benchmark.ant
:
sum-digits
( n -- x )
0
swap
[
10
/mod
swap
[
+
]
dip
]
until-zero
;