Anonymous user
Sum digits of an integer: Difference between revisions
added Ol
m (→{{header|Perl}}: Add libheader) |
(added Ol) |
||
Line 2,046:
29
</pre>
=={{header|Ol}}==
<lang scheme>
(define (sum n base)
(if (zero? n)
n
(+ (mod n base) (sum (div n base) base))))
(print (sum 1 10))
; ==> 1
(print (sum 1234 10))
; ==> 10
(print (sum #xfe 16))
; ==> 29
(print (sum #xf0e 16))
; ==> 29
</lang>
=={{header|PARI/GP}}==
Line 2,051 ⟶ 2,071:
Also the built-in <code>sumdigits</code> can be used for base 10.
=={{header|Pascal}}==
<lang pascal>Program SumOFDigits;
| |||