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

(mpuz-random): 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 e00fcc05ec
commit c9575b25ac
1 changed files with 3 additions and 8 deletions

11
lisp/play/mpuz.el
View file

@ -33,11 +33,6 @@
(random t) ; randomize (random t) ; randomize
(defun mpuz-random (n)
"Return a random integer between 0 and N - 1 inclusive."
(setq n (% (random) n))
(if (< n 0) (- n) n))
(defvar mpuz-silent nil (defvar mpuz-silent nil
"*Set this to T if you don't want dings on inputs.") "*Set this to T if you don't want dings on inputs.")
@ -142,7 +137,7 @@ You may abort a game by typing \\<mpuz-mode-map>\\[mpuz-offer-abort]."
(index 10) (index 10)
elem) elem)
(while letters (while letters
(setq elem (nth (mpuz-random index) letters) (setq elem (nth (random index) letters)
letters (delq elem letters) letters (delq elem letters)
index (1- index)) index (1- index))
(aset mpuz-digit-to-letter index elem) (aset mpuz-digit-to-letter index elem)
@ -185,8 +180,8 @@ You may abort a game by typing \\<mpuz-mode-map>\\[mpuz-offer-abort]."
;; A,B,C,D & E, are the five rows of our multiplication. ;; A,B,C,D & E, are the five rows of our multiplication.
;; Choose random values, discarding uninteresting cases. ;; Choose random values, discarding uninteresting cases.
(while (progn (while (progn
(setq A (mpuz-random 1000) (setq A (random 1000)
B (mpuz-random 100) B (random 100)
C (* A (% B 10)) C (* A (% B 10))
D (* A (/ B 10)) D (* A (/ B 10))
E (* A B)) E (* A B))