From 8abea71c7662016c98583a8d075a693eb4efa5e0 Mon Sep 17 00:00:00 2001 From: Mel Date: Sun, 6 Feb 2022 16:15:00 +0100 Subject: Update GoL example with newer constructs. --- examples/game_of_life.rh | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) (limited to 'examples/game_of_life.rh') diff --git a/examples/game_of_life.rh b/examples/game_of_life.rh index 118effb..e89aa27 100644 --- a/examples/game_of_life.rh +++ b/examples/game_of_life.rh @@ -1,5 +1,5 @@ -FIELD_WIDTH = 15; -FIELD_HEIGHT = 15; +FIELD_WIDTH := 15; +FIELD_HEIGHT := 15; create_empty_field := fn { empty_row := [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]; @@ -30,7 +30,6 @@ loop { loop if y < FIELD_HEIGHT { x = 0; loop if x < FIELD_WIDTH { - top := if y == 0 { 0 } else { field[y - 1][x] }; top_left := if x == 0 || y == 0 { 0 } else { field[y - 1][x - 1] }; top_right := if x == FIELD_WIDTH - 1 || y == 0 { 0 } else { field[y - 1][x + 1] }; @@ -48,10 +47,8 @@ loop { if neighbors == 3 { new_field[y][x] = 1; }; - } else { - if neighbors == 2 || neighbors == 3 { - new_field[y][x] = 1; - }; + } elif neighbors == 2 || neighbors == 3 { + new_field[y][x] = 1; }; x = x + 1; -- cgit 1.4.1