数字螺旋对角线

作者: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;