Averages/Root mean square: Difference between revisions

=={{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>