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/Chap4/upto
+++ b/perl/Examples/Chap4/upto
@@ -0,0 +1,14 @@
+
+
+###
+### upto
+###
+
+## Chapter 4 section 2.1
+
+sub upto {
+  my ($m, $n) = @_;
+  return sub {
+    return $m <= $n ? $m++ : undef;
+  };
+}