projects
/
reversi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r3219: *** empty log message ***
[reversi.git]
/
strategies.lisp
diff --git
a/strategies.lisp
b/strategies.lisp
index 785009ace75234352ad20d8a24bb0e57ef98716b..5529d01d4361dc33467e5e38b036150119d04057 100644
(file)
--- a/
strategies.lisp
+++ b/
strategies.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: strategies.lisp,v 1.
2 2002/10/25 09:23:39
kevin Exp $
+;;;; $Id: strategies.lisp,v 1.
4 2002/10/25 13:09:11
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
@@
-21,7
+21,6
@@
(in-package :reversi)
(declaim (optimize (safety 1) (debug 3) (speed 3) (compilation-speed 0)))
(in-package :reversi)
(declaim (optimize (safety 1) (debug 3) (speed 3) (compilation-speed 0)))
-
(defun random-strategy (player board)
"Make any legal move."
(declare (type player player)
(defun random-strategy (player board)
"Make any legal move."
(declare (type player player)
@@
-51,8
+50,8
@@
(make-move move player
(copy-board board))))
moves))
(make-move move player
(copy-board board))))
moves))
- (best
(apply #'max scores)))
- (declare (fixnum
moves
best))
+ (best (apply #'max scores)))
+ (declare (fixnum best))
(elt moves (position best scores)))))
(eval-when (:compile-toplevel :load-toplevel :execute)
(elt moves (position best scores)))))
(eval-when (:compile-toplevel :load-toplevel :execute)
@@
-235,9
+234,9
@@
(defstruct (node)
(defstruct (node)
- (square
nil
:type square)
- (board
nil
:type board)
- (value
nil
:type integer))
+ (square
(missing-argument)
:type square)
+ (board
(missing-argument)
:type board)
+ (value
(missing-argument)
:type integer))
(defun alpha-beta-searcher2 (depth eval-fn)
"Return a strategy that does A-B search with sorted moves."
(defun alpha-beta-searcher2 (depth eval-fn)
"Return a strategy that does A-B search with sorted moves."
@@
-534,6
+533,9
@@
'(random ab3-df ab3-wt ab3-md-wt iago)))
'(random ab3-df ab3-wt ab3-md-wt iago)))
+(defun text-reversi ()
+ "Sets up a text game between player and computer"
+ )