Averages/Root mean square: Difference between revisions
m
→{{header|AppleScript}}
(→{{header|AppleScript}}: updated primitives) |
|||
Line 122:
<lang AppleScript>-- rootMeanSquare :: [Num] -> Real
on rootMeanSquare(xs)
script
on |λ|(a, x)
a + x * x
Line 128:
end script
(foldl(
end rootMeanSquare
-- TEST -----------------------------------------------------------------------
Line 138 ⟶ 139:
-- > 6.204836822995
end run
-- GENERIC FUNCTIONS ----------------------------------------------------------
|