summaryrefslogtreecommitdiff
path: root/tests/queens.apl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/queens.apl')
-rw-r--r--tests/queens.apl5
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