25de8be212
Fix TProgram.Uses reserved-word clash (renamed to UsedUnits), nested brace-comment in uParser.pas, and missing uAST in Blaise.pas uses clause. Vendor QBE 1.2 source in vendor/qbe/ (built locally with make; binary excluded via .gitignore). End-to-end pipeline confirmed: Blaise compiles Hello World and Calc (6*7=42) to native x86_64 Linux binaries. 71/71 FPCUnit tests passing.
61 lines
776 B
C
61 lines
776 B
C
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
|
|
void *calloc();
|
|
|
|
int N;
|
|
int **b;
|
|
|
|
board()
|
|
{
|
|
int x;
|
|
int y;
|
|
|
|
for (y=0; y<8; y++) {
|
|
for (x=0; x<8; x++)
|
|
printf(" %02d", b[x][y]);
|
|
printf("\n");
|
|
}
|
|
printf("\n");
|
|
return 0;
|
|
}
|
|
|
|
chk(int x, int y)
|
|
{
|
|
if (x < 0 || x > 7 || y < 0 || y > 7)
|
|
return 0;
|
|
return b[x][y] == 0;
|
|
}
|
|
|
|
go(int k, int x, int y)
|
|
{
|
|
int i;
|
|
int j;
|
|
|
|
b[x][y] = k;
|
|
if (k == 64) {
|
|
if (x != 2 && y != 0 && abs(x-2) + abs(y) == 3) {
|
|
board();
|
|
N++;
|
|
if (N == 10)
|
|
exit(0);
|
|
}
|
|
} else
|
|
for (i=-2; i<=2; i++)
|
|
for (j=-2; j<=2; j++)
|
|
if (abs(i) + abs(j) == 3 && chk(x+i, y+j))
|
|
go(k+1, x+i, y+j);
|
|
b[x][y] = 0;
|
|
return 0;
|
|
}
|
|
|
|
main()
|
|
{
|
|
int i;
|
|
|
|
b = calloc(8, sizeof (int *));
|
|
for (i=0; i<8; i++)
|
|
b[i] = calloc(8, sizeof (int));
|
|
go(1, 2, 0);
|
|
}
|