A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Averages-Arithmetic-mean/Factor/averages-arithmetic-mean-1.factor
+++ b/Task/Averages-Arithmetic-mean/Factor/averages-arithmetic-mean-1.factor
@ -0,0 +1,4 @@
+USING: math math.statistics ;
+
+: arithmetic-mean ( seq -- n )
+    [ 0 ] [ mean ] if-empty ;
--- a/Task/Averages-Arithmetic-mean/Factor/averages-arithmetic-mean-2.factor
+++ b/Task/Averages-Arithmetic-mean/Factor/averages-arithmetic-mean-2.factor
@ -0,0 +1,2 @@
+( scratchpad ) { 2 3 5 } arithmetic-mean >float
+3.333333333333333