Sum digits of an integer: Difference between revisions
Content added Content deleted
(Add Uxntal) |
|||
| Line 4,667: | Line 4,667: | ||
29 |
29 |
||
29</pre> |
29</pre> |
||
=={{header|Uxntal}}== |
|||
<syntaxhighlight lang="Uxntal">@sum-digits ( num* base* -: sum* ) |
|||
#0000 STH2 |
|||
&loop |
|||
OVR2 OVR2 DIV2k MUL2 SUB2 |
|||
STH2r ADD2 STH2 |
|||
DIV2k ORAk ?{ POP2 POP2 POP2 STH2r JMP2r } |
|||
SWP2 ROT2 POP2 !&loop</syntaxhighlight> |
|||
=={{header|V (Vlang)}}== |
=={{header|V (Vlang)}}== |
||