Cumulative standard deviation: Difference between revisions

m
→‎{{header|AppleScript}}: Updated primitives
m (→‎{{header|AppleScript}}: Updated primitives)
Line 472:
((squaresSum / i) - ((sum / i) ^ 2)) ^ 0.5
{sum:(sum of a) + n, squaresSum:squaresSum, stages:stages}
end stdDevInc
 
Line 496:
set lng to length of xs
repeat with i from 1 to lng
set v to lambda|λ|(v, item i of xs, i, xs)
end repeat
return v
Line 503:
 
 
-- LiftmReturn 2nd:: First-class handlerm function=> into(a 1st-> classb) -> m script(a wrapper-> b)
-- mReturn :: Handler -> Script
on mReturn(f)
if-- 2nd class ofhandler ffunction islifted into 1st class script thenwrapper.
if script is class of f then
f
else
script
property lambda|λ| : f
end script
end if
9,655

edits