RosettaCodeData/Task/Function-composition/Raku/function-composition.raku

4 lines
102 B
Raku

sub triple($n) { 3 * $n }
my &f = &triple &prefix:<-> { $^n + 2 };
say &f(5); # prints "-21".