Code: Select all
Lisp code snippets
;; Step 1: on node entry
(setf PV nil)
;; Step 2: inside move scan)
(setf search-result (search (- beta) (- alfa) trymove))
(setf SubPV (first search-result))
(setf tryscore (- (second search-result)))
(when (and (> tryscore alfa) (< tryscore beta))
(setf PV (cons trymove SubPV)))
;; Step 3: last expression; returned result (PV expectation)
(list PV alfa)