game-of-life: faster com-random.

diff --git a/extra/game-of-life/game-of-life.factor b/extra/game-of-life/game-of-life.factor
index d03fa2fe0ae5b3a8244ca36dd4e94efa21aaff26..f96b4268fbd8663a34c46bf7c81903cd2df60137 100644 (file)
--- 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