User:Coderjoe/Sandbox2: Difference between revisions
Content added Content deleted
No edit summary |
No edit summary |
||
| Line 1: | Line 1: | ||
=={{header| |
=={{header|Perl}}== |
||
<lang perl>use Math::Complex ':trig'; |
|||
To be executed in the REPL. |
|||
sub compose { |
|||
<lang oz>declare |
|||
my ($f, $g) = @_; |
|||
| ⚫ | |||
sub { |
|||
$f -> ($g -> (@_)); |
|||
}; |
|||
| ⚫ | |||
my $cube = sub { $_[0] ** (3) }; |
|||
fun {Compose F G} |
|||
my $croot = sub { $_[0] ** (1/3) }; |
|||
{F {G X}} |
|||
| ⚫ | |||
end |
|||
my @flist1 = ( \&Math::Complex::sin, \&Math::Complex::cos, $cube ); |
|||
fun {Cube X} X*X*X end |
|||
my @flist2 = ( \&asin, \&acos, $croot ); |
|||
print join "\n", map { |
|||
fun {CubeRoot X} {Number.pow X 1.0/3.0} end |
|||
compose($flist1[$_], $flist2[$_]) -> (0.5) |
|||
| ⚫ | |||
| ⚫ | |||
in |
|||
| ⚫ | |||
<lang perl6>sub compose (&g, &f) { return { g f $^x } } |
|||
for |
|||
F in [Float.sin Float.cos Cube] |
|||
I in [Float.asin Float.acos CubeRoot] |
|||
| ⚫ | |||
{Show {{Compose I F} 0.5}} |
|||
end |
|||
</lang> |
|||
my $x = *.sin; |
|||
| ⚫ | |||
my $xi = *.asin; |
|||
| ⚫ | |||
my $y = *.cos; |
|||
<lang parigp>compose(f,g)={ |
|||
my $yi = *.acos; |
|||
x -> f(g(x)) |
|||
my $z = * ** 3; |
|||
| ⚫ | |||
my $zi = * ** (1/3); |
|||
| ⚫ | |||
fcf()={ |
|||
my @functions = $x, $y, $z; |
|||
my(A,B); |
|||
my @inverses = $xi, $yi, $zi; |
|||
A=[x->sin(x), x->cos(x), x->x^2]; |
|||
B=[x->asin(x), x->acos(x), x->sqrt(x)]; |
|||
for @functions Z @inverses { say compose($^g, $^f)(.5) }</lang> |
|||
for(i=1,#A, |
|||
Output: |
|||
print(compose(A[i],B[i])(.5)) |
|||
<pre>0.5 |
|||
) |
|||
0.5 |
|||
| ⚫ | |||
0.5</pre> |
|||
Usage note: In Pari/GP 2.4.3 the vectors can be written as |
|||
<lang parigp> A=[sin, cos, x->x^2]; |
|||
B=[asin, acos, x->sqrt(x)];</lang> |
|||
Revision as of 20:37, 16 July 2011
Perl
<lang perl>use Math::Complex ':trig';
sub compose {
my ($f, $g) = @_;
sub {
$f -> ($g -> (@_));
};
}
my $cube = sub { $_[0] ** (3) }; my $croot = sub { $_[0] ** (1/3) };
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>
Perl 6
<lang perl6>sub compose (&g, &f) { return { g f $^x } }
my $x = *.sin; my $xi = *.asin; 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:
0.5 0.5 0.5