Performance and Evaluation of Lisp Systems - Dreamsongs

3.16 Triangle
3.16.1 The Program
;;; TRIANG -- Board game benchmark.
(eval-when (compile load eval)
(defvar *board* (make-array 16. :initial-element 1))
(defvar *sequence* (make-array 14. :initial-element 0))
(defvar *a* (make-array 37. :initial-contents
’(1 2 4 3 5 6 1 3 6 2 5 4 11 12
13 7 8 4 4 7 11 8 12 13 6 10
15 9 14 13 13 14 15 9 10
6 6)))
(defvar *b* (make-array 37. :initial-contents
’(2 4 7 5 8 9 3 6 10 5 9 8
12 13 14 8 9 5 2 4 7 5 8
9 3 6 10 5 9 8 12 13 14
8 9 5 5)))
(defvar *c* (make-array 37. :initial-contents
’(4 7 11 8 12 13 6 10 15 9 14 13
13 14 15 9 10 6 1 2 4 3 5 6 1
3 6 2 5 4 11 12 13 7 8 4 4)))
(defvar *answer*)
(defvar *final*)
(setf (aref *board* 5) 0))
(defun last-position ()
(do ((i 1 (1+ i)))
((= i 16.) 0)
(if (= 1 (aref *board* i))
(return i))))
217