9 lines
131 B
Perl
9 lines
131 B
Perl
sub compose {
|
|
my ($f, $g) = @_;
|
|
|
|
sub {
|
|
$f -> ($g -> (@_));
|
|
};
|
|
}
|
|
...
|
|
compose($flist1[$_], $flist2[$_]) -> (0.5)
|