# the game of life, using a dictionary-backed board representation

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

on step board do
	next:()
	each pos in SIZE[0] cross SIZE[1]
		around:sum board @ flip pos + flip -1 + 3 cross 3
		if board[pos]
			if around in 3,4 next[pos]:1 end
		else
			if around ~ 3    next[pos]:1 end
		end
	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]