Averages/Root mean square: Difference between revisions
Content added Content deleted
m (→{{header|Sidef}}: updated code) |
(→{{header|AppleScript}}: updated primitives) |
||
| Line 123: | Line 123: | ||
on rootMeanSquare(xs) |
on rootMeanSquare(xs) |
||
script plusSquare |
script plusSquare |
||
on |
on |λ|(a, x) |
||
a + x * x |
a + x * x |
||
end |
end |λ| |
||
end script |
end script |
||
| Line 131: | Line 131: | ||
end rootMeanSquare |
end rootMeanSquare |
||
-- TEST ----------------------------------------------------------------------- |
|||
-- TEST |
|||
on run |
on run |
||
| Line 140: | Line 139: | ||
end run |
end run |
||
-- GENERIC FUNCTIONS ---------------------------------------------------------- |
|||
-- GENERIC FUNCTIONS |
|||
-- foldl :: (a -> b -> a) -> a -> [b] -> a |
-- foldl :: (a -> b -> a) -> a -> [b] -> a |
||
| Line 149: | Line 147: | ||
set lng to length of xs |
set lng to length of xs |
||
repeat with i from 1 to lng |
repeat with i from 1 to lng |
||
set v to |
set v to |λ|(v, item i of xs, i, xs) |
||
end repeat |
end repeat |
||
return v |
return v |
||
| Line 162: | Line 160: | ||
else |
else |
||
script |
script |
||
property |
property |λ| : f |
||
end script |
end script |
||
end if |
end if |
||
end mReturn</lang> |
end mReturn</lang> |
||
{{Out}} |
{{Out}} |
||
<pre>6.204836822995</pre> |
<pre>6.204836822995</pre> |
||