Mercurial > emacs
changeset 4401:c5e18576d5f1
(life-insert-random-pattern): Simplify (% (abs (random)) N)
to (random N).
| author | Paul Eggert <eggert@twinsun.com> |
|---|---|
| date | Sun, 01 Aug 1993 20:50:07 +0000 |
| parents | a549089c0d15 |
| children | 3cd121df96c8 |
| files | lisp/play/life.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/play/life.el Sun Aug 01 20:50:07 1993 +0000 +++ b/lisp/play/life.el Sun Aug 01 20:50:07 1993 +0000 @@ -182,7 +182,7 @@ (defun life-insert-random-pattern () (insert-rectangle - (elt life-patterns (% (abs (random)) (length life-patterns)))) + (elt life-patterns (random (length life-patterns)))) (insert ?\n)) (defun life-increment-generation ()