projects
/
reversi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10866: Automated commit for Debian build of reversi upstream-version-1.0.14
[reversi.git]
/
edge-table.lisp
diff --git
a/edge-table.lisp
b/edge-table.lisp
index c6ac183dfa54d0b278254385b188bd4c6bd73607..d61cb889cbc4430bf3e7171c2857ff7d64ed2770 100644
(file)
--- a/
edge-table.lisp
+++ b/
edge-table.lisp
@@
-122,6
+122,7
@@
(defun combine-edge-moves (possibilities player)
"Combine the best moves."
(declare (type player player)
(defun combine-edge-moves (possibilities player)
"Combine the best moves."
(declare (type player player)
+ (list possibilities)
(optimize (speed 3) (safety 0) (space 0)))
(let ((prob 1.0)
(val 0.0)
(optimize (speed 3) (safety 0) (space 0)))
(let ((prob 1.0)
(val 0.0)
@@
-199,7
+200,7
@@
for i from 0
sum (the fixnum
(cond
for i from 0
sum (the fixnum
(cond
- ((= (bref board sq) empty) 0
d0
)
+ ((= (bref board sq) empty) 0)
((= (bref board sq) player)
(aref *static-edge-table* i
(piece-stability board sq)))
((= (bref board sq) player)
(aref *static-edge-table* i
(piece-stability board sq)))