Magic squares/Raku: Difference between revisions

m
syntax highlighting
m (→‎{{header|Perl 6}}: Meh. tried to be cute and ended up wrong.)
m (syntax highlighting)
 
(2 intermediate revisions by the same user not shown)
Line 6:
 
See:<ul>
<li>[[Magic_squares_of_odd_order#Perl_6Raku|Magic squares of odd order#Perl 6Raku]]</li>
<li>[[Magic_squares_of_singly_even_order#Perl_6Raku|Magic squares of singly even order#Perl 6Raku]]</li>
<li>[[Magic_squares_of_doubly_even_order#Perl_6Raku|Magic squares of doubly even order#Perl 6Raku]]</li>
</ul>
 
<syntaxhighlight lang="raku" perl6line>sub MAIN (Int $n where {$n > 0}) {
 
my @sq;
Line 70:
(@sq[$q;$q], @sq[$q+$h;$q]) = (@sq[$q+$h;$q], @sq[$q;$q]);
}
}</langsyntaxhighlight>
10,327

edits