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/Chap7/scale
+++ b/perl/Examples/Chap7/scale
@@ -0,0 +1,15 @@
+
+
+###
+### scale
+###
+
+## Chapter 7 section 1
+
+sub scale {
+  my $c = shift;
+  return sub {
+    my $s = shift;
+    transform { $_[0] * $c } $s;
+  }
+}