16 lines
147 B
Plaintext
16 lines
147 B
Plaintext
|
|
|
|
###
|
|
### scale
|
|
###
|
|
|
|
## Chapter 7 section 1
|
|
|
|
sub scale {
|
|
my $c = shift;
|
|
return sub {
|
|
my $s = shift;
|
|
transform { $_[0] * $c } $s;
|
|
}
|
|
}
|