20 lines
192 B
Plaintext
20 lines
192 B
Plaintext
|
|
|
|
###
|
|
### cmap
|
|
###
|
|
|
|
## Chapter 7 section 2
|
|
|
|
sub cmap (&) {
|
|
my $f = shift;
|
|
my $r = sub {
|
|
my @result;
|
|
for (@_) {
|
|
push @result, $f->($_);
|
|
}
|
|
@result;
|
|
};
|
|
return $r;
|
|
}
|