random-stuff/computercraft/golfloor.lua

local y = 135
local minx, maxx, minz, maxz = 2514, 2544, -1488, -1518
local w, h = maxx - minx, maxz - minz
local dead, alive = {"minecraft:concrete", 3}, {"minecraft:concrete", 0}

local function make_board()
local board = {}
	for x = 0, w do
		board[x] = {}
		for z = 0, h do
			local pick = false
			if math.random() < 0.5 then pick = true end
			board[x][z] = pick
		end
	end
	return board
end

local function wrap(n, max)
	return n % max
end

local function get_neighbours(board, x, y, w, h)
	local total = 0 
	for dx = -1, 1 do
		for dy = -1, 1 do
			if not (dx == 0 and dy == 0) then
				local thing = 0
				if board[wrap(x + dx, w)][wrap(y + dy, h)] then thing = 1 end
				total = total + thing
			end
		end
	end
	return total
end

local function setblock(x, y, z, state)
	local b
	if state then b = alive else b = dead end
	commands.execAsync(string.format("setblock %d %d %d %s %d", x, y, z, b[1], b[2]))
end

local function update(board, new_board)
	for x = 0, w do
		for y = 0, h do
			local alive_now = board[x][y]
			local alive_next

			local neighbours = get_neighbours(board, x, y, w, h)

			if alive_now then
				alive_next = neighbours == 2 or neighbours == 3
			else
				alive_next = neighbours == 3
			end

			new_board[x][y] = alive_next
		end
	end
	return new_board
end

local function draw(board)
	for x = 0, w do
		for z = 0, h do
			setblock(x + minx, y, z + minz, board[x][z])
		end
	end
end

local b1, b2 = make_board(), make_board()
local gens = 0
while true do
	draw(b1)
	update(b1, b2)
	b1, b2 = b2, b1
	gens = gens + 1
	if gens % 100 == 0 then b1 = make_board() end
	sleep(1)
end