diff options
| author | Peter Mikkelsen <peter@pmikkelsen.com> | 2022-02-12 14:06:30 +0000 |
|---|---|---|
| committer | Peter Mikkelsen <peter@pmikkelsen.com> | 2022-02-12 14:06:30 +0000 |
| commit | dbb716d26d82ab8fbe44601f4af2ad9873d1dc1c (patch) | |
| tree | 0d90a237b289a566b1f0f27cd36ff4df6efe54a0 /tests | |
| parent | c07082b46a0a54b4164be67f8b7d18cd24843030 (diff) | |
Handle prototypes a bit better, but I suspect not everywhere
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:' |