From 6895401686568ed2804d6fafbb0cdca10e74b82f Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Tue, 1 Feb 2022 16:30:03 +0000
Subject: Add a test script for calculating n-queens (n=5)

---
 tests/queens.apl | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 tests/queens.apl

diff --git a/tests/queens.apl b/tests/queens.apl
new file mode 100644
index 0000000..a2ce041
--- /dev/null
+++ b/tests/queens.apl
@@ -0,0 +1,7 @@
+dfs←{⊃∇⍨⌿⌽(⊂⍺⍶⍵)⍪⍺⍹⍵}
+atk←{∪∊(⊂⍵)+¯1 0 1×⊂⌽⍳⍴⍵}
+subs←{(⊂⍵)⍪¨(⍳⍴⊃⍺)~atk ⍵}
+accm←{⍺⍪((⍴⍵)=⍴⊃⍺)↑⊂⍵}
+fmt←{(⊂⎕io+⍵=⌾⍳⍴⍵)⌷'∘⎕'}
+queens←{fmt¨ 1↓(↓1 ⍵⍴0)accm dfs subs ⍬}
+⎕←queens 5
-- 
cgit v1.2.3