make NQueens more tail recursive

roc-lang · Jun 21, 2023 · cb3f96a · cb3f96a
1 parent 5c67536
commit cb3f96a
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/crates/cli_testing_examples/benchmarks/NQueens.roc b/crates/cli_testing_examples/benchmarks/NQueens.roc
@@ -46,7 +46,10 @@ safe = \queen, diagonal, xs ->
     when xs is
         Nil -> Bool.true
         Cons q t ->
-            queen != q && queen != q + diagonal && queen != q - diagonal && safe queen (diagonal + 1) t
+            if queen != q && queen != q + diagonal && queen != q - diagonal then
+                safe queen (diagonal + 1) t
+            else
+                Bool.false
 
 
 length : ConsList a -> I64