Anonymous user
Averages/Root mean square: Difference between revisions
→{{header|SNOBOL4}}
Line 492:
<lang SNOBOL4> define('rms(a)i,ssq') :(rms_end)
rms i = i + 1; ssq = ssq + (a<i> * a<i>) :s(rms)
rms = sqrt(1.0 * ssq / prototype(a)) :(return)
rms_end
* # Fill array, test and display
str = '1 2 3 4 5
loop i = i + 1; str len(p) span('0123456789') . a<i> @p :s(loop)
output = str ' -> ' rms(a)
Line 502:
Output:
<pre>1 2 3 4 5
=={{header|Tcl}}==
| |||