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/fib-0
+++ b/perl/Examples/Chap5/fib-0
@@ -0,0 +1,13 @@
+
+
+###
+### fib0
+###
+
+## Chapter 5 section 4.3.1
+
+sub fib {
+  my $n = shift;
+  if ($n < 2) { return $n }
+  fib($n-2) + fib($n-1);
+}