diff options
| author | Paul Eggert <[email protected]> | 1993-08-01 20:50:07 +0000 |
|---|---|---|
| committer | Paul Eggert <[email protected]> | 1993-08-01 20:50:07 +0000 |
| commit | 93cc044bd667a606c72f5d86e05dbc511a27337f (patch) | |
| tree | 9c5dd2810e32f6d2b80921162680e4f7ec2e7e2b /lisp/play/dunnet.el | |
| parent | f7e55318b414a72cd0fc81525c2d4983a1033494 (diff) | |
(dun-endgame-question, tcom, tloc):
Use (random N) instead of combination of %, abs and random.
Diffstat (limited to 'lisp/play/dunnet.el')
| -rw-r--r-- | lisp/play/dunnet.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el index e45f7ff311..165fb0d8c1 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)) ;;;; |