diff options
| author | Mel <einebeere@gmail.com> | 2021-11-14 22:46:23 +0100 |
|---|---|---|
| committer | Mel <einebeere@gmail.com> | 2021-11-14 22:46:59 +0100 |
| commit | 334f70f5a2f63ec636ac1a8bc375ce51effba424 (patch) | |
| tree | 5760b16821c2c4add6d3ca22e0be5d7dfe1da34f /examples | |
| parent | c891369f0ce69b2fe78846cae1202899595354b7 (diff) | |
| download | rabbithole-334f70f5a2f63ec636ac1a8bc375ce51effba424.tar.zst rabbithole-334f70f5a2f63ec636ac1a8bc375ce51effba424.zip | |
Update GoL example with functions.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/game_of_life.rh | 28 |
1 files changed, 13 insertions, 15 deletions
diff --git a/examples/game_of_life.rh b/examples/game_of_life.rh index a9da2bc..118effb 100644 --- a/examples/game_of_life.rh +++ b/examples/game_of_life.rh @@ -1,15 +1,19 @@ FIELD_WIDTH = 15; FIELD_HEIGHT = 15; -empty_row := [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]; +create_empty_field := fn { + empty_row := [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]; -field = [ - empty_row, empty_row, empty_row, - empty_row, empty_row, empty_row, - empty_row, empty_row, empty_row, - empty_row, empty_row, empty_row, - empty_row, empty_row, empty_row -]; + [ + empty_row, empty_row, empty_row, + empty_row, empty_row, empty_row, + empty_row, empty_row, empty_row, + empty_row, empty_row, empty_row, + empty_row, empty_row, empty_row + ] +}; + +field = create_empty_field(); # Place a glider on the field. field[1][2] = 1; @@ -19,13 +23,7 @@ field[3][2] = 1; field[3][3] = 1; loop { - new_field = [ - empty_row, empty_row, empty_row, - empty_row, empty_row, empty_row, - empty_row, empty_row, empty_row, - empty_row, empty_row, empty_row, - empty_row, empty_row, empty_row - ]; + new_field = create_empty_field(); # Compute new field. y = 0; |