chore: format game_of_life.ark

Author: SuperFola

examples/games/game_of_life.ark

@@ -16,41 +16,33 @@
 (let neigh (fun (board_ index) {
   (let x (math:floor (mod index width)))
   (let y (math:floor (/ index width)))
-  (+
-    (get board_ (- x 1) y)
-    (get board_ (+ x 1) y)
-    (get board_ x (- y 1))
-    (get board_ x (+ y 1))
-    (get board_ (- x 1) (- y 1))
-    (get board_ (+ x 1) (- y 1))
-    (get board_ (- x 1) (+ y 1))
-    (get board_ (+ x 1) (+ y 1))) }))
+  (+ (get board_ (- x 1) y) (get board_ (+ x 1) y) (get board_ x (- y 1)) (get board_ x (+ y 1)) (get board_ (- x 1) (- y 1)) (get board_ (+ x 1) (- y 1)) (get board_ (- x 1) (+ y 1)) (get board_ (+ x 1) (+ y 1))) }))
 
 (let indices (list:iota 0 (* height width)))
 (let update (fun (board) {
   (mut copy (list:fill (* height width) dead))
 
-  (list:forEach indices
+  (list:forEach
+    indices
     (fun (i) {
       (let neighs (neigh board i))
-      (switch neighs
-        2 (@= copy i (@ board i))
-        3 (@= copy i alive)
-        _ (@= copy i dead)) }))
+      (switch neighs 2 (@= copy i (@ board i)) 3 (@= copy i alive) _ (@= copy i dead)) }))
 
   copy }))
 
-(let display (fun (board width height)
-  (print (string:join
-    (list:map
-      (list:chunkBy
-        (list:map board
-          (fun (cell)
-            (if (= alive cell) "x" "•")))
-        3)
-      (fun (sublist)
-        (string:join sublist "")))
-    "\n"))))
+(let display (fun (board width height) (print
+    (string:join
+      (list:map
+        (list:chunkBy
+          (list:map
+            board
+            (fun (cell)
+              (if (= alive cell)
+                "x"
+                "•")))
+          3)
+        (fun (sublist) (string:join sublist "")))
+      "\n"))))
 
 (print "initial board:")
 (display board width height)