comparison lisp/play/landmark.el @ 34792:294c98d5718b

(lm): Use interactive spec `P'. (toplevel): Don't set debug-on-error.

34791:88b250e19382

;;; landmark.el --- neural-network robot that learns landmarks

;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.

;; Author: Terrence Brannon <[e-mail]>
;; Created: December 16, 1996 - first release to usenet
;; Keywords: gomoku neural network adaptive search chemotaxis

;;; move in a net direction can produce gross credit assignment. for
;;; example, if moving south will produce positive payoff, then, if in
;;; a single move, one moves east,west and south, then both east and
;;; west will be improved when they shouldn't

;;; For further references see
;;; http://rana.usc.edu:8376/~brannon/warez/yours-truly/lm/
;;; Many thanks to Yuri Pryadkin ([e-mail]) for this
;;; concise problem description.

;;;_* Require
(eval-when-compile (require 'cl))

  "The number of moves made by the robot so far.")


;;;_* Terry's mods to create lm.el

;;;_ + Debugging things
(setq debug-on-error t)
;;;(setq lm-debug nil)
(defvar lm-debug nil
  "If non-nil, debugging is printed.")
(defcustom lm-one-moment-please nil
  "If non-nil, print \"One moment please\" when a new board is generated.

       4   | no                    | no

You start by moving to a square and typing \\[lm-start-robot],
if you did not use a prefix arg to ask for automatic start.
Use \\[describe-mode] for more info."
  (interactive "p")

  (setf lm-n nil lm-m nil)
  (lm-switch-to-window)
  (cond
   (lm-emacs-is-computing

34792:294c98d5718b

;;; landmark.el --- neural-network robot that learns landmarks

;; Copyright (c) 1996, 1997, 2000 Free Software Foundation, Inc.

;; Author: Terrence Brannon <[e-mail]>
;; Created: December 16, 1996 - first release to usenet
;; Keywords: gomoku neural network adaptive search chemotaxis

;;; move in a net direction can produce gross credit assignment. for
;;; example, if moving south will produce positive payoff, then, if in
;;; a single move, one moves east,west and south, then both east and
;;; west will be improved when they shouldn't

;;; Many thanks to Yuri Pryadkin ([e-mail]) for this
;;; concise problem description.

;;;_* Require
(eval-when-compile (require 'cl))

  "The number of moves made by the robot so far.")


;;;_* Terry's mods to create lm.el

;;;(setq lm-debug nil)
(defvar lm-debug nil
  "If non-nil, debugging is printed.")
(defcustom lm-one-moment-please nil
  "If non-nil, print \"One moment please\" when a new board is generated.

       4   | no                    | no

You start by moving to a square and typing \\[lm-start-robot],
if you did not use a prefix arg to ask for automatic start.
Use \\[describe-mode] for more info."
  (interactive "P")

  (setf lm-n nil lm-m nil)
  (lm-switch-to-window)
  (cond
   (lm-emacs-is-computing