From 25fc79a40caa0795254e95109884b5ef93265c8f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 9 Mar 2018 15:53:29 -0800
Subject: [PATCH] game-of-life: faster com-random.

---
 extra/game-of-life/game-of-life.factor | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/extra/game-of-life/game-of-life.factor b/extra/game-of-life/game-of-life.factor
index d03fa2fe0a..f96b4268fb 100644
--- a/extra/game-of-life/game-of-life.factor
+++ b/extra/game-of-life/game-of-life.factor
@@ -170,8 +170,10 @@ SYMBOL: last-click
     gadget relayout-1 ;
 
 :: com-random ( gadget -- )
-    gadget grid>> [ [ drop { t f } random ] map! drop ] each
-    gadget relayout-1 ;
+    gadget grid>> [
+        [ length>> ] [ underlying>> length random-bytes ] bi
+        bit-array boa
+    ] map! drop gadget relayout-1 ;
 
 :: com-glider ( gadget -- )
     gadget grid>> :> grid