> say [+] grep {$_ %% 5 or $_ %% 3}, 1..10;
33

##</code><code>##

> sub sum3_5 (Int $max) { return [+] grep {$_ %% 5 or $_ %% 3}, 1..$max};
sub sum3_5 (Int $max) { #`(Sub|320422744) ... }
> say sum3_5 10;
33

##</code><code>##

> say reduce {$^a + $^b}, grep {$_ %% 5 or $_ %% 3}, 1..10;
33

##</code><code>##

> say reduce * + *, grep {$_ %% 5 or $_ %% 3}, 1..10;
33