RosettaCodeData/Task/First-class-functions/Perl-6/first-class-functions-1.pl6

sub infix:<∘> (&𝑔, &𝑓) { -> \x { 𝑔 𝑓 x } }

my \𝐴 = &sin,  &cos,  { $_ ** <3/1> }
my \𝐵 = &asin, &acos, { $_ ** <1/3> }

say .(.5) for 𝐴 Z∘ 𝐵
-												March 2014 update

											
										
										
											2014-04-02 16:56:35 +00:00
+								sub infix:<∘> (&𝑔, &𝑓) { -> \x { 𝑔 𝑓 x } }
-												langs a-z

											
										
										
											2013-04-10 22:43:41 -07:00
-												March 2014 update

											
										
										
											2014-04-02 16:56:35 +00:00
+								my \𝐴 = &sin,  &cos,  { $_ ** <3/1> }
 								my \𝐵 = &asin, &acos, { $_ ** <1/3> }
-												langs a-z

											
										
										
											2013-04-10 22:43:41 -07:00
-												March 2014 update

											
										
										
											2014-04-02 16:56:35 +00:00
+								say .(.5) for 𝐴 Z∘ 𝐵