3 和 5 的倍数
作者：cspence
https://projecteuler.net/problem=1
列出10以下所有3或5的倍数，我们得到 3、5、6 和 9。这些倍数的总和是 23。
求出1000以下所有3或5的倍数之和。
源代码： prob001-cspencer.pl
use v6;
(1..^1000).grep({ ! ($^a % 3 and $^a % 5) }).reduce({ $^a + $^b }).say;
Perl 6 示例
作者：cspence
https://projecteuler.net/problem=1
列出10以下所有3或5的倍数，我们得到 3、5、6 和 9。这些倍数的总和是 23。
求出1000以下所有3或5的倍数之和。
源代码： prob001-cspencer.pl
use v6;
(1..^1000).grep({ ! ($^a % 3 and $^a % 5) }).reduce({ $^a + $^b }).say;