From 5776ce50cae6d42f618ba27941ffd3b8033ff2ba Mon Sep 17 00:00:00 2001
From: logicmoo <logicmoo@gmail.com>
Date: Fri, 29 Nov 2024 18:17:57 -0800
Subject: [PATCH] unbotch plain prolog

---
 .../compare_algo/nqueens/nqueens_test_prolog_plain.sh         | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/performance/compare_algo/nqueens/nqueens_test_prolog_plain.sh b/tests/performance/compare_algo/nqueens/nqueens_test_prolog_plain.sh
index 58307131490..3f204fad136 100755
--- a/tests/performance/compare_algo/nqueens/nqueens_test_prolog_plain.sh
+++ b/tests/performance/compare_algo/nqueens/nqueens_test_prolog_plain.sh
@@ -43,9 +43,9 @@ nqueens(N, Solution) :-
 % Start the benchmark
 benchmark(N) :-
     statistics(walltime, [_ | [_]]),
-    nqueens(N, Solution),
+    findall(S, nqueens(N, S), Solutions),
+    length(Solutions, Length),
     statistics(walltime, [_ | [Elapsed]]),
-    length(Solution, Length),
     format("N=~w: ~w solutions found in ~w ms~n", [N, Length, Elapsed]).
 EOF