Mercurial > emacs

changeset 4400:a549089c0d15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mpuz-random): Remove. All callers changed to use `random' instead.
author Paul Eggert <eggert@twinsun.com>
date Sun, 01 Aug 1993 20:50:07 +0000
parents 8080301bd1d9
children c5e18576d5f1
files lisp/play/mpuz.el
diffstat 1 files changed, 3 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/play/mpuz.el	Sun Aug 01 20:48:43 1993 +0000
+++ b/lisp/play/mpuz.el	Sun Aug 01 20:50:07 1993 +0000
@@ -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 @@
 	(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 @@
     ;; 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))