11 lines
153 B
Perl
11 lines
153 B
Perl
|
sub compose {
|
||
|
|
my ($f, $g) = @_;
|
||
|
|
|
||
|
|
sub {
|
||
|
|
$f -> ($g -> (@_))
|
||
|
|
};
|
||
|
|
}
|
||
|
|
|
||
|
|
use Math::Trig;
|
||
|
|
print compose(sub {sin $_[0]}, \&asin)->(0.5), "\n";
|