Cumulative standard deviation: Difference between revisions

Content added Content deleted
m (→‎{{header|AppleScript}}: Updated primitives)
Line 472: Line 472:
((squaresSum / i) - ((sum / i) ^ 2)) ^ 0.5
((squaresSum / i) - ((sum / i) ^ 2)) ^ 0.5
{sum:sum, squaresSum:squaresSum, stages:stages}
{sum:(sum of a) + n, squaresSum:squaresSum, stages:stages}
end stdDevInc
end stdDevInc


Line 496: Line 496:
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 lambda(v, item i of xs, i, xs)
set v to |λ|(v, item i of xs, i, xs)
end repeat
end repeat
return v
return v
Line 503: Line 503:




-- Lift 2nd class handler function into 1st class script wrapper
-- mReturn :: First-class m => (a -> b) -> m (a -> b)
-- mReturn :: Handler -> Script
on mReturn(f)
on mReturn(f)
if class of f is script then
-- 2nd class handler function lifted into 1st class script wrapper.
if script is class of f then
f
f
else
else
script
script
property lambda : f
property |λ| : f
end script
end script
end if
end if
Retrieved from "https://rosettacode.org/wiki/Cumulative_standard_deviation"