First-class functions
Here we use the Z
("zipwith") metaoperator to zip the 𝐴 and 𝐵 lists with a user-defined compose function, expressed as an infix operator, ∘
. The .()
construct invokes the function contained in the $_
(current topic) variable.
sub infix:<∘> (&𝑔, &𝑓) { -> \x { 𝑔 𝑓 x } }
my \𝐴 = &sin, &cos, { $_ ** <3/1> }
my \𝐵 = &asin, &acos, { $_ ** <1/3> }
say .(.5) for 𝐴 Z∘ 𝐵
Output:
Output:
0.5
0.5
0.5
Operators, both buildin and user-defined, are first class too.
my @a = 1,2,3;
my @op = &infix:<+>, &infix:<->, &infix:<*>;
for flat @a Z @op -> $v, &op { say 42.&op($v) }
Output:
43
40
126