From 6ed5b9f6d3fdeeed8ecd43b18bae642ec1ec24b1 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <peter@pmikkelsen.com>
Date: Wed, 9 Feb 2022 01:16:03 +0000
Subject: Add much better memory handling (We now track and free Datum *
 structs)

---
 tests/queens.apl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'tests/queens.apl')

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