diff options
| -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 |