projects
/
reversi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r6298: convert .cvsignore to svn:ignore properties
[reversi.git]
/
base.lisp
diff --git
a/base.lisp
b/base.lisp
index cffba2edf75124612bd90cbffc3812830ad14337..03a628f7846ff12198dd15b2543f1584f311f4de 100644
(file)
--- a/
base.lisp
+++ b/
base.lisp
@@
-8,7
+8,7
@@
;;;; Programer: Kevin Rosenberg based on code by Peter Norvig
;;;; Date Started: 1 Nov 2001
;;;;
;;;; Programer: Kevin Rosenberg based on code by Peter Norvig
;;;; Date Started: 1 Nov 2001
;;;;
-;;;; $Id: base.lisp,v 1.
5 2003/06/12 13:08:43
kevin Exp $
+;;;; $Id: base.lisp,v 1.
7 2003/06/17 05:47:18
kevin Exp $
;;;;
;;;; This file is Copyright (c) 2001-2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1998-2002 Peter Norvig
;;;;
;;;; This file is Copyright (c) 2001-2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1998-2002 Peter Norvig
@@
-156,10
+156,10
@@
(defun count-difference (player board)
"Count player's pieces minus opponent's pieces."
(declare (type board board)
(defun count-difference (player board)
"Count player's pieces minus opponent's pieces."
(declare (type board board)
- (fixnum player)
+ (
type
fixnum player)
(optimize (speed 3) (safety 0) (space 0)))
(the fixnum (- (the fixnum (count player board))
(optimize (speed 3) (safety 0) (space 0)))
(the fixnum (- (the fixnum (count player board))
- (the fixum (count (opponent player) board)))))
+ (the fix
n
um (count (opponent player) board)))))
(defun valid-p (move)
(declare (type move move)
(defun valid-p (move)
(declare (type move move)
@@
-185,8
+185,7
@@
(declare (type board board)
(type move move)
(type player player)
(declare (type board board)
(type move move)
(type player player)
- (optimize speed (safety 0))
-)
+ (optimize speed (safety 0) (space 0)))
(if (= (bref board move) empty)
(block search
(let ((i 0))
(if (= (bref board move) empty)
(block search
(let ((i 0))
@@
-281,7
+280,7
@@
(let ((c (+ move dir)))
(declare (type square c))
(and (= (the piece (bref board c)) (the player (opponent player)))
(let ((c (+ move dir)))
(declare (type square c))
(and (= (the piece (bref board c)) (the player (opponent player)))
- (find-bracketing-piece (
+ c dir
) player board dir))))
+ (find-bracketing-piece (
the fixnum (+ c dir)
) player board dir))))
(defun find-bracketing-piece (square player board dir)
"Return the square number of the bracketing piece."
(defun find-bracketing-piece (square player board dir)
"Return the square number of the bracketing piece."