procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(random-number): Remove.

Browse source 
All callers changed to use `random' instead.
This commit is contained in:
Paul Eggert 1993-08-01 20:50:07 +00:00
parent 6b6d5edf69
commit f7e55318b4
1 changed files with 1 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/play/gomoku.el
View file

@ -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.