Add all the A tasks

2013-04-10 14:58:50 -07:00 · 2013-04-10 14:58:50 -07:00 · 051504d65b
commit 051504d65b
parent 2dd7375f96
1608 changed files with 18584 additions and 0 deletions
--- a/Task/Averages-Simple-moving-average/Perl/averages-simple-moving-average.pl
+++ b/Task/Averages-Simple-moving-average/Perl/averages-simple-moving-average.pl
@ -0,0 +1,7 @@
+sub sma ($)
+ {my ($period, $sum, @a) = shift, 0;
+  return sub
+     {unshift @a, shift;
+      $sum += $a[0];
+      @a > $period and $sum -= pop @a;
+      return $sum / @a;}}