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/curry_eval
+++ b/perl/Examples/Chap7/curry_eval
@@ -0,0 +1,20 @@
+
+
+###
+### curry.eval
+###
+
+## Chapter 7 section 2.2.1
+
+sub curry {
+  my $f = shift;
+  my $PROTOTYPE = shift;
+  $PROTOTYPE = "($PROTOTYPE)" if defined $PROTOTYPE;
+  my $CODE = q{sub PROTOTYPE { 
+                 my $first_arg = shift;
+                 my $r = sub { $f->($first_arg, @_) };
+                 return @_ ? $r->(@_) : $r;
+               }};
+  $CODE =~ s/PROTOTYPE/$PROTOTYPE/;
+  eval $CODE;
+}