diff options
author | Paul Eggert <[email protected]> | 1993-08-01 20:50:07 +0000 |
---|---|---|
committer | Paul Eggert <[email protected]> | 1993-08-01 20:50:07 +0000 |
commit | f7e55318b414a72cd0fc81525c2d4983a1033494 (patch) | |
tree | d92a6e2e1d1f2abe0c6a997348c6c15070b9e17f | |
parent | 6b6d5edf696c11ce2b2ccad2f4b0b3586afa2826 (diff) |
(random-number): Remove.
All callers changed to use `random' instead.
-rw-r--r-- | lisp/play/gomoku.el | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el index a403f2efdd..0bc047682b 100644 --- a/lisp/play/gomoku.el +++ b/lisp/play/gomoku.el @@ -319,16 +319,11 @@ is non-nil." ;; If score is equally good, choose randomly. But first check freeness: ((not (zerop (aref gomoku-board square))) (aset gomoku-score-table square -1)) - ((= count (random-number (setq count (1+ count)))) + ((zerop (random (setq count (1+ count)))) (setq best-square square score-max score))) (setq square (1+ square))) ; try next square best-square)) - -(defun random-number (n) - "Return a random integer between 0 and N-1 inclusive." - (setq n (% (random) n)) - (if (< n 0) (- n) n)) ;;; ;;; INITIALIZING THE SCORE TABLE. |