blob: 3ca0697cedc3d3f909c052d645a0faf126a73584 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
; This board is 8 * 8 = 64 cells.
; let n_cells = 64
; let board: int[64]
; let new_board: int[64]
; let stride = 8
; This board is 32 * 32 = 1024 cells.
let n_cells = 1024
let board: int[1024]
let new_board: int[1024]
let stride = 32
; Initialize glider
set board[stride * 2 + 5] = 1
set board[stride * 3 + 6] = 1
set board[stride * 4 + 4] = 1
set board[stride * 4 + 5] = 1
set board[stride * 4 + 6] = 1
let n_iter = 1000
while n_iter > 0 {
set n_iter = n_iter - 1
; Print the board.
{
let i = 0
while i < n_cells {
if i % stride == 0 {
println("")
}
if board[i] == 1 print("■ ")
else print("· ")
set i = i + 1
}
println("")
}
; Update the board.
{
let i = 0
while i < n_cells {
let left = if i > 0 board[i - 1] else 0
let right = if i < n_cells - 1 board[i + 1] else 0
let top = if i >= stride board[i - stride] else 0
let topleft = if i >= stride board[i - stride - 1] else 0
let topright = if i >= stride board[i - stride + 1] else 0
let bot = if i <= n_cells - stride board[i + stride] else 0
let botleft = if i <= n_cells - stride board[i + stride - 1] else 0
let botright = if i <= n_cells - stride board[i + stride + 1] else 0
let neig = left
+ right
+ top
+ bot
+ topleft
+ topright
+ botleft
+ botright
cond {
board[i] == 0 && neig == 3 = set new_board[i] = 1
board[i] == 1 && (neig == 2 || neig == 3) = set new_board[i] = 1
else = set new_board[i] = 0
}
set i = i + 1
}
; Copy the new board.
{
let i = 0
while i < n_cells {
set board[i] = new_board[i]
set i = i + 1
}
}
}
}
|
