RosettaCodeData/Task/Apply-a-callback-to-an-array/Perl-6/apply-a-callback-to-an-array.pl6

20 lines
378 B
Raku
Raw Permalink Normal View History

2015-11-18 06:14:39 +00:00
sub function { 2 * $^x + 3 };
2013-04-10 22:43:41 -07:00
my @array = 1 .. 5;
# via map function
2015-11-18 06:14:39 +00:00
.say for map &function, @array;
2013-04-10 22:43:41 -07:00
# via map method
2015-11-18 06:14:39 +00:00
.say for @array.map(&function);
2013-04-10 22:43:41 -07:00
# via for loop
for @array {
2015-11-18 06:14:39 +00:00
say function($_);
2013-04-10 22:43:41 -07:00
}
# via the "hyper" metaoperator and method indirection
2015-11-18 06:14:39 +00:00
say @array».&function;
# we neither need a variable for the array nor for the function
say [1,2,3]>>.&({ $^x + 1});