Ramsey's theorem: Difference between revisions
Content added Content deleted
(Ramsey's theorem en FreeBASIC) |
Catskill549 (talk | contribs) |
||
Line 175: | Line 175: | ||
check=yes |
check=yes |
||
</pre> |
</pre> |
||
=={{header|AWK}}== |
|||
<lang AWK> |
|||
# syntax: GAWK -f RAMSEYS_THEOREM.AWK |
|||
# converted from Ring |
|||
BEGIN { |
|||
for (i=1; i<=17; i++) { |
|||
arr[i,i] = -1 |
|||
} |
|||
k = 1 |
|||
while (k <= 8) { |
|||
for (i=1; i<=17; i++) { |
|||
j = (i + k) % 17 |
|||
if (j != 0) { |
|||
arr[i,j] = 1 |
|||
arr[j,i] = 1 |
|||
} |
|||
} |
|||
k = k * 2 |
|||
} |
|||
for (i=1; i<=17; i++) { |
|||
for (j=1; j<=17; j++) { |
|||
printf("%s",arr[i,j]+0) |
|||
} |
|||
printf("\n") |
|||
} |
|||
exit(0) |
|||
} |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
-11101000110001011 |
|||
1-1110100011000101 |
|||
11-111010001100010 |
|||
011-11101000110001 |
|||
1011-1110100011000 |
|||
01011-111010001100 |
|||
001011-11101000110 |
|||
0001011-1110100011 |
|||
10001011-111010000 |
|||
110001011-11101000 |
|||
0110001011-1110100 |
|||
00110001011-111010 |
|||
000110001011-11100 |
|||
1000110001011-1110 |
|||
01000110001011-110 |
|||
101000110001011-10 |
|||
1101000100000000-1 |
|||
</pre> |
|||
=={{header|C}}== |
=={{header|C}}== |