RosettaCodeData/Task/Function-composition/Perl-6/function-composition.pl6
2018-06-22 20:57:24 +00:00

3 lines
102 B
Raku

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