1.18.10 Run, program, run
This section contains expressions that start the Chat Noir game going.
First, here is a function to compute state of the world at the start of a game.
<initial-world> ::=
| (define board-size 11) |
| (define (make-initial-world) |
| (define initial-board |
| (add-n-random-blocked-cells |
| 6 |
| (empty-board board-size) |
| board-size)) |
| (make-world initial-board |
| (make-posn (quotient board-size 2) |
| (quotient board-size 2)) |
| 'playing |
| board-size |
| #f |
| #f)) |
Finally, we can define and provide a function to start the game by calling big-bang with the appropriate arguments.
<go> ::=