[Perl 6] Higher-order function combo (method call).
my $n = (1..10)
.grep({ $_ mod 2 != 0 })
.map({ $_ ** 2 })
.reduce: { $^a + $^b };
$n == 1 ** 2 + 3 ** 2 + 5 ** 2 + 7 ** 2 + 9 ** 2 or die "Wrong value";
my $n = (1..10)
.grep({ $_ mod 2 != 0 })
.map({ $_ ** 2 })
.reduce: { $^a + $^b };
$n == 1 ** 2 + 3 ** 2 + 5 ** 2 + 7 ** 2 + 9 ** 2 or die "Wrong value";
Comments
0 B
|👍
/👎
0 B
|👍
/👎