Rosetta Code

Sum digits of an integer: Difference between revisions

Page Discussion

Sum digits of an integer (view source)

Revision as of 21:50, 26 November 2023

425 bytes removed ,  5 months ago
→‎Clojure
imported>Md1frejo
imported>Md1frejo
Line 1,541:
{{out}}
<pre>1 15 15 29 29</pre>
 
==={{header|Chez Scheme}}===
<syntaxhighlight lang="scheme">
(define dsum (lambda (x base)
(let ((number (if (string? x) (string->number x base) x)))
(if (= (string-length (number->string number)) 1) number
(+ (mod number base) (dsum (div number base) base))))))
> (dsum 123 10)
6
> (dsum "fe" 16)
29
> (dsum "f0e" 16)
29
> (dsum 1234 10)
10
 
</syntaxhighlight>
 
=={{header|Clojure}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/351624"