mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/play/mpuz.el
View File

@ -33,11 +33,6 @@
(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
"*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)
elem)
(while letters
(setq elem (nth (mpuz-random index) letters)
(setq elem (nth (random index) letters)
letters (delq elem letters)
index (1- index))
(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.
;; Choose random values, discarding uninteresting cases.
(while (progn
(setq A (mpuz-random 1000)
B (mpuz-random 100)
(setq A (random 1000)
B (random 100)
C (* A (% B 10))
D (* A (/ B 10))
E (* A B))