unbotch plain prolog

trueagi-io · Nov 30, 2024 · 5776ce5 · 5776ce5
1 parent 70c7d0e
commit 5776ce5
Showing 1 changed file with 2 additions and 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
@@ -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