update_grid.ml(файл создан)
| @@ -0,0 +1,8 @@ | |||
| 1 | + | let update_grid () = | |
| 2 | + | let next_grid = empty_grid () in | |
| 3 | + | for y = 0 to 9 do | |
| 4 | + | for x = 0 to 9 do | |
| 5 | + | next_grid.(y).(x) <- next_state x y | |
| 6 | + | done | |
| 7 | + | done; | |
| 8 | + | grid := next_grid ;; | |
Новее
Позже