# the game of life, using an image-backed board representation

SIZE:60,60
board:image[SIZE]
each pos in SIZE[0] cross SIZE[1]
	if 1<random[3] board[pos]:1 end
end

on step board do
	next:image[board.size]
	each pos in board.size[0] cross board.size[1]
		around:sum board @ flip pos + flip -1 + 3 cross 3
		next[pos]:(board[pos] & around in 3,4) | around~3
	end
	next
end

on show_board board do
	print[b:"+%s+" format SIZE[0] take "-"]
	print[("\n","|%s|","","%s") format each y in range SIZE[1]
		each x in range SIZE[0] ".O"[board[x,y]] end
	end]
	print[b]
end

each _ in range 100
	board:step[board]
end
show_board[board]