Ramsey's theorem: Difference between revisions
m
→{{header|Perl 6}}: a 'flat' to restore correct operation
m (added whitespace before the TOC (table of contents), added a ;Task: (bold) header.) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: a 'flat' to restore correct operation) |
||
Line 550:
=={{header|Perl 6}}==
{{Works with|rakudo|2016.08}}
<lang perl6>my @a = [ 0 xx 17 ] xx 17;
@a[$_;$_] = '-' for ^17;
for flat ^17 X 1,2,4,8 -> $i, $k {
my $j = ($i + $k) % 17;
@a[$i;$j] = @a[$j;$i] = 1;
| |||