From 49469d1084425a53551189d0a22559b01cd8d8b3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 27 Aug 2006 11:52:07 +0000
Subject: [PATCH] add nqueens to auto

svn: r4156
---
 collects/tests/mzscheme/benchmarks/common/auto.ss     | 3 ++-
 collects/tests/mzscheme/benchmarks/common/nqueens.sch | 9 +++++----
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/collects/tests/mzscheme/benchmarks/common/auto.ss b/collects/tests/mzscheme/benchmarks/common/auto.ss
index a53f778a3d..f658c3d64d 100755
--- a/collects/tests/mzscheme/benchmarks/common/auto.ss
+++ b/collects/tests/mzscheme/benchmarks/common/auto.ss
@@ -178,7 +178,7 @@ exec mzscheme -qu "$0" ${1+"$@"}
                 run-exe/time
                 extract-time-times
                 clean-up-bin
-                '(cpstack ctak maze puzzle triangle))
+                '(ctak maze puzzle triangle))
      (make-impl 'gambit
                 (run-mk "mk-gambit.ss")
                 run-gambit-exe
@@ -212,6 +212,7 @@ exec mzscheme -qu "$0" ${1+"$@"}
       nboyer
       nestedloop
       nfa
+      nqueens
       nucleic2
       paraffins
       peval
diff --git a/collects/tests/mzscheme/benchmarks/common/nqueens.sch b/collects/tests/mzscheme/benchmarks/common/nqueens.sch
index fc5fdb8d9b..636b542e81 100644
--- a/collects/tests/mzscheme/benchmarks/common/nqueens.sch
+++ b/collects/tests/mzscheme/benchmarks/common/nqueens.sch
@@ -1,4 +1,5 @@
 ;;; NQUEENS -- Compute number of solutions to 8-queens problem.
+;; 2006/08 -- renamed `try' to `try-it' to avoid Bigloo collision (mflatt)
 
 (define trace? #f)
 
@@ -8,15 +9,15 @@
     (let loop ((i n) (l '()))
       (if (= i 0) l (loop (- i 1) (cons i l)))))
 
-  (define (try x y z)
+  (define (try-it x y z)
     (if (null? x)
       (if (null? y)
         (begin (if trace? (begin (write z) (newline))) 1)
         0)
       (+ (if (ok? (car x) 1 z)
-           (try (append (cdr x) y) '() (cons (car x) z))
+           (try-it (append (cdr x) y) '() (cons (car x) z))
            0)
-         (try (cdr x) (cons (car x) y) z))))
+         (try-it (cdr x) (cons (car x) y) z))))
 
   (define (ok? row dist placed)
     (if (null? placed)
@@ -25,7 +26,7 @@
            (not (= (car placed) (- row dist)))
            (ok? row (+ dist 1) (cdr placed)))))
 
-  (try (1-to n) '() '()))
+  (try-it (1-to n) '() '()))
 
 (let ((input (with-input-from-file "input.txt" read)))
   (time