SQL_Lamer,

Привет. Я вот сегодня увидела твой вариант решение задачи "8 ферзей" с использованием массивов.
Ты не могу бы мне выслать пояснения к ней?Мы недавно начали изучать лисп и помощь со стороны не была бы лишней.
Мог бы написать комментарии к строкам задачки? Заранее большое спасибо за помощь!

(defun position-p(board depth)
(let ((res t))
(dotimes (i depth)
(if
(or
(= (svref board i) (svref board depth))
(= (+ (svref board i) i) (+ (svref board depth) depth))
(= (- (svref board i) i) (- (svref board depth) depth)))
(progn
(setf res nil)
(return))))
res))


(defun pos-search(board depth size)
(if (= depth size)
(format t "~a~%" board)
(progn
(setf (svref board depth) 0)

(loop
(when (= (svref board depth) size) (return))
(if(position-p board depth)
(pos-search board (+ depth 1) size))
(setf (svref board depth)(incf (svref board depth)))))))


vuzov:
(pos-search (make-array 8 :initial-element 0) 0 8)