diff options
| author | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2022-02-01 16:30:03 +0000 |
|---|---|---|
| committer | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2022-02-01 16:30:03 +0000 |
| commit | 6895401686568ed2804d6fafbb0cdca10e74b82f (patch) | |
| tree | 32ac72e5342684cb22e0490482528c6a40ade3f3 | |
| parent | 1dd3378ab8fccb5f6f33ebc781a95010bd6394b8 (diff) | |
Add a test script for calculating n-queens (n=5)
| -rw-r--r-- | tests/queens.apl | 7 |
1 files changed, 7 insertions, 0 deletions
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 |