Anonymous user
Averages/Root mean square: Difference between revisions
→Tcl: Added implementation
Underscore (talk | contribs) (Added Haskell.) |
(→Tcl: Added implementation) |
||
Line 36:
>>> qmean(numbers)
6.2048368229954285</lang>
=={{header|Tcl}}==
{{works with|Tcl|8.5}}
<lang tcl>proc qmean list {
set sum 0.0
foreach value $list { set sum [expr {$sum + $value**2}] }
return [expr { sqrt($sum / [llength $list]) }]
}
puts "RMS(1..10) = [qmean {1 2 3 4 5 6 7 8 9 10}]"</lang>
Output:
<pre>
RMS(1..10) = 6.2048368229954285
</pre>
|