User:Coderjoe/Sandbox2: Difference between revisions

Content added Content deleted

Inline

Revision as of 20:38, 16 July 2011

<lang oz>declare

 fun {Compose F G}
    fun {$ X}
       {F {G X}}
    end
 end

 fun {Cube X} X*X*X end

 fun {CubeRoot X} {Number.pow X 1.0/3.0} end

in

 for
    F in [Float.sin  Float.cos  Cube]
    I in [Float.asin Float.acos CubeRoot]
 do
    {Show {{Compose I F} 0.5}}
 end

</lang>

@@ Line 1: / Line 1: @@
+<lang oz>declare
-=={{header|Perl}}==
-<lang perl>use Math::Complex ':trig';
+  fun {Compose F G}
-sub compose {
-    my ($f, $g) = @_;
+     fun {$ X}
+        {F {G X}}
-    sub {
+     end
+  end
-        $f -> ($g -> (@_));
-    };
-}
-my $cube  = sub { $_[0] ** (3)   };
+  fun {Cube X} X*X*X end
-my $croot = sub { $_[0] ** (1/3) };
+  fun {CubeRoot X} {Number.pow X 1.0/3.0} end
-my @flist1 = ( \&Math::Complex::sin, \&Math::Complex::cos, $cube  );
-my @flist2 = ( \&asin,               \&acos,               $croot );
+in
-print join "\n", map {
-    compose($flist1[$_], $flist2[$_]) -> (0.5)
-} 0..2;</lang>
+  for
-=={{header|Perl 6}}==
+     F in [Float.sin  Float.cos  Cube]
-{{works with|Rakudo|2011.06}}
+     I in [Float.asin Float.acos CubeRoot]
+  do
-<lang perl6>sub compose (&g, &f) { return { g f $^x } }
+     {Show {{Compose I F} 0.5}}
+  end
-my $x  = *.sin;
+</lang>
-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:
-<pre>0.5
-.5
-.5</pre>