10 lines
356 B
Text
10 lines
356 B
Text
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 6 7 8 9 10'; a = array(10)
|
|
loop i = i + 1; str len(p) span('0123456789') . a<i> @p :s(loop)
|
|
output = str ' -> ' rms(a)
|
|
end
|