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/partition-repeats
+++ b/perl/Examples/Chap5/partition-repeats
@@ -0,0 +1,15 @@
+
+
+###
+### partition-repeats
+###
+
+## Chapter 5 section 2
+
+sub partition {
+  print "@_\n";
+  my ($n, @parts) = @_;
+  for (1 .. $n-1) {
+    partition($n-$_, $_, @parts);
+  }
+}