Sum of Digits.

[Dieter]

(03-25-2016 11:16 AM)ggauny@live.fr Wrote:  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.

Here is one that uses only the stack:

Code:

001 LBL'SD'
002 RCL- X
003 RCL L   ' keep x and set y=0 ;-)
004 RCL X
005 # 010
006 RMDR
007 STO+ Z  ' once again a case where
008 -       ' a dedicated DIVMOD command
009 # 010   ' would be nice
010 IDIV
011 x≠0?
012 BACK 008
013 +       ' or DROP, if you prefer
014 END

But I see you had time to improve your programming skills on the 34s. This also shows up in the reverse digits program. ;-)

Dieter