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/make-part-dfs-1
+++ b/perl/Examples/Chap5/make-part-dfs-1
@@ -0,0 +1,19 @@
+
+
+###
+### make_partition_dfs
+###
+
+## Chapter 5 section 3
+
+sub make_partition {
+  my $n = shift;
+  my $root = [$n];
+  my $children = sub {
+    my ($largest, @rest) = @{shift()};
+    my $min = $rest[0] || 1;
+    my $max  = int($largest/2);
+    map [$largest-$_, $_, @rest], ($min .. $max);
+  };
+  make_dfs_search($root, $children);
+}