diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/queens.apl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/queens.apl b/tests/queens.apl index d372186..5ea1de4 100644 --- a/tests/queens.apl +++ b/tests/queens.apl @@ -3,7 +3,7 @@ atk←{∪∊(⊂⍵)+¯1 0 1×⊂⌽⍳⍴⍵} subs←{(⊂⍵)⍪¨(⍳⍴⊃⍺)~atk ⍵} accm←{⍺⍪((⍴⍵)=⍴⊃⍺)↑⊂⍵} fmt←{(⊂⎕io+⍵=⌾⍳⍴⍵)⌷'∘⎕'} -queens←{fmt¨ 1↓(↓1 ⍵⍴0)accm dfs subs ⍬} +queens←{fmt¨ (↓0 ⍵⍴0)accm dfs subs ⍬} eightqueens←queens 8 ⎕←'Number of solutions to 8 queens: ',⍕≢eightqueens ⎕←'First five:' |