RosettaCodeData/Task/Function-composition/Perl-6/function-composition.pl6
2017-09-25 22:28:19 +02:00

3 lines
95 B
Raku

sub triple($n) { 3 * $n }
my &f = &triple &[-] { $^n + 2 };
say &f(5); # Prints "-21".