From b349fca5216f0faed8e1d97111ef77862bee355e Mon Sep 17 00:00:00 2001 From: Folkert Date: Wed, 21 Jun 2023 17:21:41 +0200 Subject: [PATCH] make NQueens more tail recursive --- crates/cli_testing_examples/benchmarks/NQueens.roc | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/crates/cli_testing_examples/benchmarks/NQueens.roc b/crates/cli_testing_examples/benchmarks/NQueens.roc index e1a9414428..62b931fb3e 100644 --- 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