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