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-Root-mean-square/Perl/averages-root-mean-square.pl
+++ b/Task/Averages-Root-mean-square/Perl/averages-root-mean-square.pl
@ -0,0 +1,9 @@
+use v5.10.0;
+sub rms
+{
+        my $r = 0;
+        $r += $_**2 for @_;
+        return sqrt( $r/@_ );
+}
+
+say rms(1..10);