first commit

This commit is contained in:
douboer
2025-09-17 16:08:16 +08:00
parent 9395faa6b2
commit 3ff47c11d5
1318 changed files with 117477 additions and 0 deletions

15
perl/Examples/Chap7/scale Normal file
View File

@@ -0,0 +1,15 @@
###
### scale
###
## Chapter 7 section 1
sub scale {
my $c = shift;
return sub {
my $s = shift;
transform { $_[0] * $c } $s;
}
}