A-M baby

Task/Factorial/Perl/factorial-1.pl

@@ -0,0 +1,17 @@
+sub factorial
+{
+  my $n = shift;
+  my $result = 1;
+  for (my $i = 1; $i <= $n; ++$i)
+  {
+    $result *= $i;
+  };
+  $result;
+}
+
+# using a .. range
+sub factorial {
+    my $r = 1;
+    $r *= $_ for 1..shift;
+    $r;
+}

Task/Factorial/Perl/factorial-2.pl

@@ -0,0 +1,5 @@
+sub factorial
+{
+  my $n = shift;
+  ($n == 0)? 1 : $n*factorial($n-1);
+}

Task/Factorial/Perl/factorial-3.pl

@@ -0,0 +1,6 @@
+use List::Util qw(reduce);
+sub factorial
+{
+  my $n = shift;
+  reduce { $a * $b } 1, 1 .. $n
+}