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