From c9575b25acfec3493b56d63deb78c7e19ae0ec8c Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sun, 1 Aug 1993 20:50:07 +0000 Subject: (mpuz-random): Remove. All callers changed to use `random' instead. --- lisp/play/mpuz.el | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el index b0d7aeaab0c..d04889f8a6f 100644 --- a/lisp/play/mpuz.el +++ b/lisp/play/mpuz.el @@ -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-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-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)) -- cgit v1.2.1