first commit

2025-09-17 16:08:16 +08:00
parent 9395faa6b2
commit 3ff47c11d5
1318 changed files with 117477 additions and 0 deletions
--- a/perl/Examples/Chap5/factorial-2
+++ b/perl/Examples/Chap5/factorial-2
@@ -0,0 +1,17 @@
+
+
+###
+### factorial2
+###
+
+## Chapter 5 section 4.2
+
+sub factorial {
+  my ($n) = @_;
+  my $product = 1;
+  until ($n == 0) {
+    $product *= $n;
+    $n--;
+  }
+  return $product;
+}