数字螺旋对角线
作者:Shlomi Fish
http://projecteuler.net/problem=28
从数字 1 开始,按顺时针方向移动,形成一个 5 x 5 的螺旋,如下所示
21 22 23 24 25 20 7 8 9 10 19 6 1 2 11 18 5 4 3 12 17 16 15 14 13
可以验证,对角线上的数字之和为 101。
以相同的方式形成的 1001 x 1001 螺旋中,对角线上的数字之和是多少?
源代码: prob028-shlomif.pl
use v6;
my Int $sum = 0;
my Int $num = 1;
$sum += $num;
for 2, 4 ... 1000 -> $step {
for 0 .. 3 {
$num += $step;
$sum += $num;
}
}
say $sum;
Perl 6 示例