Sum of Digits.

[ggauny@live.fr]

Hi all friends,
Playing with my WP34s, as each days, I was thinking that, in number theory,
often we need know what is the sum of digits presents in register X.
So, based on an pretty old routine from John Kennedy, I would like submit
you this little routine.
Be aware it is not good for "perfects numbers", I am testing another routine
for this special case.
But it is may be helpfull for someone. Here we go :

Code:


001 LBL'TOT'
002 LocR 001
003 STO .00
004 STO- .00
005 # 010
006 /
007 STO+ .00
008 IP
009 STO- .00
010 x[!=]0?
011 BACK 006
012 # 010
013 STO[times] .00
014 RCL .00
015 RTN
016 END

For example, if you type : 123 ==> 6
31416==>15

Hoping servicing you

STO[times] = STO*