diff options
| author | Paul Eggert | 1993-08-01 20:50:07 +0000 |
|---|---|---|
| committer | Paul Eggert | 1993-08-01 20:50:07 +0000 |
| commit | 6b6d5edf696c11ce2b2ccad2f4b0b3586afa2826 (patch) | |
| tree | 9f331039058211b96775ce470f4ec00241bf632d | |
| parent | c9575b25acfec3493b56d63deb78c7e19ae0ec8c (diff) | |
| download | emacs-6b6d5edf696c11ce2b2ccad2f4b0b3586afa2826.tar.gz emacs-6b6d5edf696c11ce2b2ccad2f4b0b3586afa2826.zip | |
(life-insert-random-pattern): Simplify (% (abs (random)) N)
to (random N).
| -rw-r--r-- | lisp/play/life.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/play/life.el b/lisp/play/life.el index 50e76e69cac..e4faecb61bd 100644 --- a/lisp/play/life.el +++ b/lisp/play/life.el | |||
| @@ -182,7 +182,7 @@ generations (this defaults to 1)." | |||
| 182 | 182 | ||
| 183 | (defun life-insert-random-pattern () | 183 | (defun life-insert-random-pattern () |
| 184 | (insert-rectangle | 184 | (insert-rectangle |
| 185 | (elt life-patterns (% (abs (random)) (length life-patterns)))) | 185 | (elt life-patterns (random (length life-patterns)))) |
| 186 | (insert ?\n)) | 186 | (insert ?\n)) |
| 187 | 187 | ||
| 188 | (defun life-increment-generation () | 188 | (defun life-increment-generation () |