# HG changeset patch
# User Paul Eggert <eggert@twinsun.com>
# Date 744238207 0
# Node ID a549089c0d15aa8d43e31280ac5c30be351dfc48
# Parent  8080301bd1d92d40df49213f6b89ed9f1999a9d2
(mpuz-random): Remove.
All callers changed to use `random' instead.

diff -r 8080301bd1d9 -r a549089c0d15 lisp/play/mpuz.el
--- 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))