1 files changed, 33 insertions, 0 deletions
diff --git a/bcc/misc/test/8queens.pas b/bcc/misc/test/8queens.pas
new file mode 100644
index 0000000..f4f1b47
--- /dev/null
+++ b/bcc/misc/test/8queens.pas
@@ -0,0 +1,33 @@
+program	eightqueens;
+
+var i: integer;
+    a: array[ 1..8 ] of	boolean;
+    b: array[ 2..16] of	boolean;
+    c: array[-7..7 ] of	boolean;
+    x: array[ 1..8 ] of	integer;
+
+procedure print;
+var k: integer;
+begin
+    for	k:= 1 to 8 do write(x[k]:4);
+    writeln;
+end;
+
+procedure try(i: integer);
+var j: integer;
+begin
+    for	j:= 1 to 8 do if a[j] and b[i+j] and c[i-j] then
+    begin
+		x[i]:= j;
+		a[j]:= false; b[i+j]:= false; c[i-j]:= false;
+		if i < 8 then try(i+1) else print;
+		a[j]:= true; b[i+j]:= true; c[i-j]:= true;
+    end;
+end;
+
+begin
+    for	i:=  1 to 8  do	a[i]:= true;
+    for	i:=  2 to 16 do	b[i]:= true;
+    for	i:= -7 to 7  do	c[i]:= true;
+    try(1);
+end.