From dbb716d26d82ab8fbe44601f4af2ad9873d1dc1c Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <peter@pmikkelsen.com>
Date: Sat, 12 Feb 2022 14:06:30 +0000
Subject: Handle prototypes a bit better, but I suspect not everywhere

---
 tests/queens.apl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests/queens.apl')

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:'
-- 
cgit v1.2.3