From 93cc044bd667a606c72f5d86e05dbc511a27337f Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sun, 1 Aug 1993 20:50:07 +0000 Subject: [PATCH] (dun-endgame-question, tcom, tloc): Use (random N) instead of combination of %, abs and random. --- lisp/play/dunnet.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el index e45f7ff3118..165fb0d8c1c 100644 --- a/lisp/play/dunnet.el +++ b/lisp/play/dunnet.el @@ -1038,7 +1038,7 @@ for a moment, then straighten yourself up. (let (which i newques) (setq i 0) (setq newques nil) - (setq which (% (abs (random)) (length dun-endgame-questions))) + (setq which (random (length dun-endgame-questions))) (dun-mprincl "Your question is:") (dun-mprincl (setq dun-endgame-question (car (nth which @@ -2990,11 +2990,11 @@ drwxr-xr-x 3 root staff 2048 Jan 1 1970 ..") (random t) -(setq tloc (+ 60 (% (abs (random)) 18))) +(setq tloc (+ 60 (random 18))) (dun-replace dun-room-objects tloc (append (nth tloc dun-room-objects) (list 18))) -(setq tcomb (+ 100 (% (abs (random)) 899))) +(setq tcomb (+ 100 (random 899))) (setq dun-combination (prin1-to-string tcomb)) ;;;; -- 2.39.5