Anonymous user
Cumulative standard deviation: Difference between revisions
Added PicoLisp
(Added PicoLisp) |
|||
Line 1,004:
end std_dev;
</lang>
=={{header|PicoLisp}}==
<lang PicoLisp>(scl 2)
(de stdDev ()
(let Data NIL
(curry (Data) (N)
(push 'Data N)
(let (Len (length Data) M (*/ (apply + Data) Len))
(sqrt
(*/
(sum
'((N) (*/ (- N M) (- N M) 1.0))
Data )
1.0
Len )
T ) ) ) ) )
(let Fun (stdDev)
(for N (2.0 4.0 4.0 4.0 5.0 5.0 7.0 9.0)
(prinl (format N *Scl) " -> " (format (Fun N) *Scl)) ) )</lang>
Output:
<pre>2.00 -> 0.00
4.00 -> 1.00
4.00 -> 0.94
4.00 -> 0.87
5.00 -> 0.98
5.00 -> 1.00
7.00 -> 1.40
9.00 -> 2.00</pre>
=={{header|PowerShell}}==
| |||