dan
/
fink
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

passing fix

This commit is contained in:
Dan 2008-06-25 23:03:09 -07:00
parent b5f322a3f9
commit bbd9f6d9e5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
board.lisp
View File

@ -261,7 +261,7 @@
(defmethod select-move ((board ranked-board)) (defmethod select-move ((board ranked-board))
;(if (eql (rank-top-count board) 0) ;(if (eql (rank-top-count board) 0)
;'(-1 (-1 -1)) ;'(-1 (-1 -1))
(pdebug "select-move ~%") ; (pdebug "select-move ~%")
(car (nthcdr (random (rank-top-count board)) (rank-top-list board)))) (car (nthcdr (random (rank-top-count board)) (rank-top-list board))))
@ -273,7 +273,8 @@
`(make-instance ,class :boardsize (boardsize ,board) :board-def-type ,def-type)) `(make-instance ,class :boardsize (boardsize ,board) :board-def-type ,def-type))
(defmethod genmove ((board basic-board) player &key (depth 1)) (defmethod genmove ((board basic-board) player &key (depth 1))
(pdebug "genmove ~a~%" depth) ; (pdebug "genmove ~a~%" depth)
; (format t "genmove depth ~a player ~a~%" depth player) ; (format t "genmove depth ~a player ~a~%" depth player)
(if (= depth 0) (if (= depth 0)
`( ,(score board (invert-player player)) nil) `( ,(score board (invert-player player)) nil)