Anonymous user
User:Coderjoe/Sandbox2: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 1:
=={{header|
<lang perl>use Math::Complex ':trig';
sub compose {
my ($f, $g) = @_;
sub {
$f -> ($g -> (@_));
};
my $cube = sub { $_[0] ** (3) };
my $croot =
▲ end
my @flist1 = ( \&Math::Complex::sin, \&Math::Complex::cos, $cube );
my @flist2 = ( \&asin, \&acos, $croot );
print join "\n", map {
compose($flist1[$_], $flist2[$_]) -> (0.5)
} 0..2;</lang>▼
<lang perl6>sub compose (&g, &f) { return { g f $^x } }
do▼
my $x = *.sin;
▲=={{header|PARI/GP}}==
my $xi = *.asin;
▲{{works with|PARI/GP|2.4.2 and above}}
my $y = *.cos;
my $yi = *.acos;
my $z = * ** 3;
▲};
my $zi = * ** (1/3);
my @functions = $x, $y, $z;
my @inverses = $xi, $yi, $zi;
for @functions Z @inverses { say compose($^g, $^f)(.5) }</lang>
Output:
<pre>0.5
0.5
▲};</lang>
0.5</pre>
|