Ideone.com

fork download

copy

--~ A reverse ipairs. Taken from http://l...content-available-to-author-only...s.org/wiki/IteratorsTutorial ~--
	--[[parameters
			t: the table to iterate over
		returns
			iterator function, the table and the index]]
	function ripairs(t)
	  local function ripairs_it(t,i)
		i=i-1
		local v=t[i]
		if v==nil then return v end
		return i,v
	  end
	  return ripairs_it, t, #t+1
	end
 
	--~ Seed the random numbers ~--
	math.randomseed(os.time())
	math.random()math.random()math.random()
 
	--~ Parameters ~--
	local width = 45		--~ Width of the map ~--
	local height = 45   	--~ Height of the map ~--
	local border = 2		--~ Width around the border of the map. At least 2 ~--
	local kill_no = 6		--~ Minimum number of empty cells for a miner to die ~--
	local spawn_prob = 0.6	--~ Chance for a miner to spawn a clone per frame ~--
 
	local cell_kill_no = 6	--~ Minimum number of empty cells for that cell to be removed ~--
 
	local map = {}
	local miners = {}
	local draw = {}
 
	for x = 1, width do
		map[x] = {}
		for y = 1, height do
			map[x][y] = "#"
		end
	end
 
	table.insert(miners, {
			x = math.random(border, width-border),
			y = math.random(border, height-border)
		})
 
	--~ Main miner loop ~--
	while #miners ~= 0 do
		--~ Scan all the cells around the miner to check for empty ones --~
		for i, miner in ripairs(miners) do
			local empty = 0
			for x = -1, 1 do
				for y = -1, 1 do
					if map[miner.x+x][miner.y+y] == " " or
					(miner.x+x < border or miner.x+x > width-border) or
					(miner.y+y < border or miner.y+y > height-border) then
						empty = empty + 1
					end
				end
			end
			--~ If there are enough empty ones, remove the miner ~--
			if empty >= kill_no then
				table.remove(miners, i)
			else
				--~ Randomly spawn in another miner at this spot ~--
				if math.random() <= spawn_prob then
				table.insert(miners, {
					x = miner.x,
					y = miner.y
				})
				end
 
				--~ Randomly move the miner, making sure it's not out of bounds ~--
				local xDir, yDir = math.random(-1, 1), math.random(-1, 1)
				if (miner.x+xDir >= border and miner.x+xDir <= width-border) and (miner.y+yDir >= border and miner.y+yDir <= height-border) then
					miner.x = miner.x + xDir
					miner.y = miner.y + yDir
				end
 
				--~ Remove the cell the miner is on ~--
				if map[miner.x][miner.y] then
					map[miner.x][miner.y] = " "
				end
			end
		end
	end
 
	for x = 2, #map-1 do
		for y = 2, #map[x]-1 do
			--~ Count the empty squares around this cell ~--
			local empty = 0
			for dX = -1, 1 do
				for dY = -1, 1 do
					if map[x+dX][y+dY] == " " then
						empty = empty + 1
					end
				end
			end
 
			--~ If there is enough many, remove the block ~--
			if empty >= cell_kill_no then
			map[x][y] = " "
			end
		end
	end
 
	--~ Display it as an ascii map ~--
	for x = 1, width do
		for y = 1, height do
			io.write(map[x][y])
			io.write (" ")
		end
		io.write("\n")
	end

LS1+IEEgcmV2ZXJzZSBpcGFpcnMuIFRha2VuIGZyb20gaHR0cDovL2wuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLnMub3JnL3dpa2kvSXRlcmF0b3JzVHV0b3JpYWwgfi0tCgktLVtbcGFyYW1ldGVycwoJCQl0OiB0aGUgdGFibGUgdG8gaXRlcmF0ZSBvdmVyCgkJcmV0dXJucwoJCQlpdGVyYXRvciBmdW5jdGlvbiwgdGhlIHRhYmxlIGFuZCB0aGUgaW5kZXhdXQoJZnVuY3Rpb24gcmlwYWlycyh0KQoJICBsb2NhbCBmdW5jdGlvbiByaXBhaXJzX2l0KHQsaSkKCQlpPWktMQoJCWxvY2FsIHY9dFtpXQoJCWlmIHY9PW5pbCB0aGVuIHJldHVybiB2IGVuZAoJCXJldHVybiBpLHYKCSAgZW5kCgkgIHJldHVybiByaXBhaXJzX2l0LCB0LCAjdCsxCgllbmQKCgktLX4gU2VlZCB0aGUgcmFuZG9tIG51bWJlcnMgfi0tCgltYXRoLnJhbmRvbXNlZWQob3MudGltZSgpKQoJbWF0aC5yYW5kb20oKW1hdGgucmFuZG9tKCltYXRoLnJhbmRvbSgpCgoJLS1+IFBhcmFtZXRlcnMgfi0tCglsb2NhbCB3aWR0aCA9IDQ1CQktLX4gV2lkdGggb2YgdGhlIG1hcCB+LS0KCWxvY2FsIGhlaWdodCA9IDQ1ICAgCS0tfiBIZWlnaHQgb2YgdGhlIG1hcCB+LS0KCWxvY2FsIGJvcmRlciA9IDIJCS0tfiBXaWR0aCBhcm91bmQgdGhlIGJvcmRlciBvZiB0aGUgbWFwLiBBdCBsZWFzdCAyIH4tLQoJbG9jYWwga2lsbF9ubyA9IDYJCS0tfiBNaW5pbXVtIG51bWJlciBvZiBlbXB0eSBjZWxscyBmb3IgYSBtaW5lciB0byBkaWUgfi0tCglsb2NhbCBzcGF3bl9wcm9iID0gMC42CS0tfiBDaGFuY2UgZm9yIGEgbWluZXIgdG8gc3Bhd24gYSBjbG9uZSBwZXIgZnJhbWUgfi0tCgoJbG9jYWwgY2VsbF9raWxsX25vID0gNgktLX4gTWluaW11bSBudW1iZXIgb2YgZW1wdHkgY2VsbHMgZm9yIHRoYXQgY2VsbCB0byBiZSByZW1vdmVkIH4tLQoKCWxvY2FsIG1hcCA9IHt9Cglsb2NhbCBtaW5lcnMgPSB7fQoJbG9jYWwgZHJhdyA9IHt9CgoJZm9yIHggPSAxLCB3aWR0aCBkbwoJCW1hcFt4XSA9IHt9CgkJZm9yIHkgPSAxLCBoZWlnaHQgZG8KCQkJbWFwW3hdW3ldID0gIiMiCgkJZW5kCgllbmQKCgl0YWJsZS5pbnNlcnQobWluZXJzLCB7CgkJCXggPSBtYXRoLnJhbmRvbShib3JkZXIsIHdpZHRoLWJvcmRlciksCgkJCXkgPSBtYXRoLnJhbmRvbShib3JkZXIsIGhlaWdodC1ib3JkZXIpCgkJfSkKCgktLX4gTWFpbiBtaW5lciBsb29wIH4tLQoJd2hpbGUgI21pbmVycyB+PSAwIGRvCgkJLS1+IFNjYW4gYWxsIHRoZSBjZWxscyBhcm91bmQgdGhlIG1pbmVyIHRvIGNoZWNrIGZvciBlbXB0eSBvbmVzIC0tfgoJCWZvciBpLCBtaW5lciBpbiByaXBhaXJzKG1pbmVycykgZG8KCQkJbG9jYWwgZW1wdHkgPSAwCgkJCWZvciB4ID0gLTEsIDEgZG8KCQkJCWZvciB5ID0gLTEsIDEgZG8KCQkJCQlpZiBtYXBbbWluZXIueCt4XVttaW5lci55K3ldID09ICIgIiBvcgoJCQkJCShtaW5lci54K3ggPCBib3JkZXIgb3IgbWluZXIueCt4ID4gd2lkdGgtYm9yZGVyKSBvcgoJCQkJCShtaW5lci55K3kgPCBib3JkZXIgb3IgbWluZXIueSt5ID4gaGVpZ2h0LWJvcmRlcikgdGhlbgoJCQkJCQllbXB0eSA9IGVtcHR5ICsgMQoJCQkJCWVuZAoJCQkJZW5kCgkJCWVuZAoJCQktLX4gSWYgdGhlcmUgYXJlIGVub3VnaCBlbXB0eSBvbmVzLCByZW1vdmUgdGhlIG1pbmVyIH4tLQoJCQlpZiBlbXB0eSA+PSBraWxsX25vIHRoZW4KCQkJCXRhYmxlLnJlbW92ZShtaW5lcnMsIGkpCgkJCWVsc2UKCQkJCS0tfiBSYW5kb21seSBzcGF3biBpbiBhbm90aGVyIG1pbmVyIGF0IHRoaXMgc3BvdCB+LS0KCQkJCWlmIG1hdGgucmFuZG9tKCkgPD0gc3Bhd25fcHJvYiB0aGVuCgkJCQl0YWJsZS5pbnNlcnQobWluZXJzLCB7CgkJCQkJeCA9IG1pbmVyLngsCgkJCQkJeSA9IG1pbmVyLnkKCQkJCX0pCgkJCQllbmQKCgkJCQktLX4gUmFuZG9tbHkgbW92ZSB0aGUgbWluZXIsIG1ha2luZyBzdXJlIGl0J3Mgbm90IG91dCBvZiBib3VuZHMgfi0tCgkJCQlsb2NhbCB4RGlyLCB5RGlyID0gbWF0aC5yYW5kb20oLTEsIDEpLCBtYXRoLnJhbmRvbSgtMSwgMSkKCQkJCWlmIChtaW5lci54K3hEaXIgPj0gYm9yZGVyIGFuZCBtaW5lci54K3hEaXIgPD0gd2lkdGgtYm9yZGVyKSBhbmQgKG1pbmVyLnkreURpciA+PSBib3JkZXIgYW5kIG1pbmVyLnkreURpciA8PSBoZWlnaHQtYm9yZGVyKSB0aGVuCgkJCQkJbWluZXIueCA9IG1pbmVyLnggKyB4RGlyCgkJCQkJbWluZXIueSA9IG1pbmVyLnkgKyB5RGlyCgkJCQllbmQKCgkJCQktLX4gUmVtb3ZlIHRoZSBjZWxsIHRoZSBtaW5lciBpcyBvbiB+LS0KCQkJCWlmIG1hcFttaW5lci54XVttaW5lci55XSB0aGVuCgkJCQkJbWFwW21pbmVyLnhdW21pbmVyLnldID0gIiAiCgkJCQllbmQKCQkJZW5kCgkJZW5kCgllbmQKCglmb3IgeCA9IDIsICNtYXAtMSBkbwoJCWZvciB5ID0gMiwgI21hcFt4XS0xIGRvCgkJCS0tfiBDb3VudCB0aGUgZW1wdHkgc3F1YXJlcyBhcm91bmQgdGhpcyBjZWxsIH4tLQoJCQlsb2NhbCBlbXB0eSA9IDAKCQkJZm9yIGRYID0gLTEsIDEgZG8KCQkJCWZvciBkWSA9IC0xLCAxIGRvCgkJCQkJaWYgbWFwW3grZFhdW3krZFldID09ICIgIiB0aGVuCgkJCQkJCWVtcHR5ID0gZW1wdHkgKyAxCgkJCQkJZW5kCgkJCQllbmQKCQkJZW5kCgoJCQktLX4gSWYgdGhlcmUgaXMgZW5vdWdoIG1hbnksIHJlbW92ZSB0aGUgYmxvY2sgfi0tCgkJCWlmIGVtcHR5ID49IGNlbGxfa2lsbF9ubyB0aGVuCgkJCW1hcFt4XVt5XSA9ICIgIgoJCQllbmQKCQllbmQKCWVuZAoKCS0tfiBEaXNwbGF5IGl0IGFzIGFuIGFzY2lpIG1hcCB+LS0KCWZvciB4ID0gMSwgd2lkdGggZG8KCQlmb3IgeSA9IDEsIGhlaWdodCBkbwoJCQlpby53cml0ZShtYXBbeF1beV0pCgkJCWlvLndyaXRlICgiICIpCgkJZW5kCgkJaW8ud3JpdGUoIlxuIikKCWVuZA==

Success #stdin #stdout 0.02s 2836KB

stdin

copy

Standard input is empty

stdout

copy

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 
# # # # # # #   # #   #       # # # # #   #   #     # # # # # # # # # # #     #   # # # # 
# # # # # #             #       # # #             # # # # # # # # # #             # # # # 
# # # # #                         # #             # # # # # # # # # #             # # # # 
# # # # #           #                             # # # # # # # # # #       # #     # # # 
# # # #           # # #                           # # # # # # # # #         # #       # # 
# # # #           # #                             # # # # # # # #                   # # # 
# # # #                                           # # # # # #                         # # 
# # # #                                           # # # # #                           # # 
# # # # #                                         # # # #       # #                 # # # 
# # # # #                                                       # #     # #           # # 
# # # # # #                 #                                     #   # # #         # # # 
# # # # # #               # # #                                     #   #           # # # 
# # # # # #                 # #                                                       # # 
# # # # # # #                 #                                                       # # 
# # # # # #                                                                         # # # 
# # # # # # #                                                                     # # # # 
# # # # # # # #         # #                                                     # # # # # 
# # # # # # # # # #     # #     # #                                           # # # # # # 
# # # # # # # # # #           # # #                                         # # # # # # # 
# # # # # # # # # # #           # #                                             # # # # # 
# # # # # # # # # # # #         # #                                               # # # # 
# # # # # # # # # # #                                                                 # # 
# # # # # # # # # # #                                                                 # # 
# # # # # # # #                                                                     # # # 
# # # # # # # #                                                                     # # # 
# # # # # # # # #           # # #                                                     # # 
# # # # # # # # # #         # # #                           # #                       # # 
# # # # # # # # # # # #       #                             # #                     # # # 
# # # # # # # # # # # #                                                               # # 
# # # # # # # # # # #                                       #                         # # 
# # # # # # # # # # # # #                               # # # #                       # # 
# # # # # # # # # # # # #                           # # # # # #       #               # # 
# # # # # # # # # # # # #                         # # # # # #       # #               # # 
# # # # # # # # # # # # # #                       # # # # # #       #           # #   # # 
# # # # # # # # # # # # # #                     # # # # # # #     #           # # # # # # 
# # # # # # # # # # # #                           # # # # # # # # # # #     # # # # # # # 
# # # # # # # # # # # #                         # # # # # # # # # # # # # # # # # # # # # 
# # # # # # # # # # # # #                 # # # # # # # # # # # # # # # # # # # # # # # # 
# # # # # # # # # # # #                 # # # # # # # # # # # # # # # # # # # # # # # # # 
# # # # # # # # # # # # #       # #       # # # # # # # # # # # # # # # # # # # # # # # # 
# # # # # # # # # # # #       # #       # # # # # # # # # # # # # # # # # # # # # # # # # 
# # # # # # # # # # # # #     # #     # # # # # # # # # # # # # # # # # # # # # # # # # # 
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #

https://ideone.com/uZOJ65

language:

Lua (luac 5.3.3)

created:

visibility:

public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!

Discover > Sphere Engine API

Discover > IDE Widget

Choose your language