From 6b6d5edf696c11ce2b2ccad2f4b0b3586afa2826 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sun, 1 Aug 1993 20:50:07 +0000 Subject: [PATCH] (life-insert-random-pattern): Simplify (% (abs (random)) N) to (random N). --- lisp/play/life.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)." (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 () -- 2.39.5