Magic squares/Raku: Difference between revisions
m
→{{header|Perl 6}}: Style tweaks
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Add links to the various tasks) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Style tweaks) |
||
Line 28:
my $x = $n/2;
my $y = 0;
@sq[($i % $n ?? $y-- !! $y++) % $n][($i % $n ?? $x++ !! $x) % $n] = $i++ for ^
}
Line 34:
my $x = 0;
my $y = 0;
@sq[$i % $n ?? $y !! $y++][($i-1) % $n] = $i++ for ^
my $t;
for 0 ..^ $n div 4 -> $r {
| |||