Sum digits of an integer: Difference between revisions

m
Missing "4" in "1234"
imported>Md1frejo
m (Missing "4" in "1234")
 
(7 intermediate revisions by 3 users not shown)
Line 1,542:
<pre>1 15 15 29 29</pre>
 
==={{header|Chez Scheme}}===
<syntaxhighlight lang="scheme">
(define dsum (lambda (x base)
Line 2,507:
}
}</syntaxhighlight>
 
 
=={{header|Golfscript}}==
<syntaxhighlight lang="golfscript">{base {+}*}:sd;</syntaxhighlight>
 
Test (apply sd for each array [number radix]) :
 
{{out}}
<pre>[[1 10] [1234 10] [254 16] [3854 16]] {~sd p}%
1
10
29
29
</pre>
 
=={{header|Groovy}}==
Line 4,882 ⟶ 4,896:
=={{header|Wren}}==
{{libheader|Wren-fmt}}
<syntaxhighlight lang="ecmascriptwren">import "./fmt" for Fmt, Conv
 
var sumDigits = Fn.new { |n, b|
Line 4,899 ⟶ 4,913:
var b = test[1]
var sum = sumDigits.call(n, b)
SystemFmt.print("%(Fmt.s($-55s in base $2d = $2d", Conv.itoa(n, b))) in base %(Fmt.d(2, b)) = %(Fmt.d(2, sum))")
}</syntaxhighlight>
 
3

edits