Simple redstone simulator

Redstone is a material in the game Minecraft, and it is used for many complex contraptions. For this program, you will only need to simulate three items: the redstone wire (noted with R), redstone torch (noted with T), and block (noted with B).

Here are a list of basic rules about how redstone works:

A redstone torch sends power to any adjacent redstone wire.
TRRRR
^This redstone wire is powered.

Redstone wire can only hold power for 15 blocks.
TRRRRRRRRRRRRRRRR
^This last wire is unpowered, because the torch is >15 blocks away.

A block is said to be powered if a powered redstone wire is found adjacent to it.
TRRRB
^This block is powered.

If a block next to a redstone torch is powered, then the torch stops emitting power.
T
R
R
R
B <This block is powered.
T <This redstone torch does not emit power because of the block next to it.
R <This redstone is unpowered because the torch is not providing power.
R


Input will be given in two dimensional arrays up to a size of 64x64, like this:

TRRR
B
TBRTRR
R
RRRRRRRRR
R
RRRRRR


It is guaranteed that the input will not have any "clocks", or redstone powered by a torch pointing to the block that the torch is on. There will only be one redstone circuit in every input.

Your program must change each character to be a 1 or a 0, 1 indicating if this item is powered/emitting power, and a 0 if it is unpowered/not emitting power.

This input should have this output:

1111
1
100000
1
111111111
1
001111


This is a code-golf, so shortest code wins, as always.

• What output do you expect for situations like "TRR\nB B\nRRT"? Commented Jan 29, 2013 at 6:05
• 111\n0 1\n000 is the output; it seems to be sound within the rules. I will put an input restriction saying you cannot have any situations like TRR B R RRR, where it flashes repeatedly. Commented Jan 29, 2013 at 6:22
• Can we assume that each input array will contain only one complete circuit running from top to bottom as in your example or do we have to code for multiple separate circuits starting anywhere in the array? Commented Jan 29, 2013 at 11:32
• @Graham: There will only be one redstone circuit for each input. Commented Jan 29, 2013 at 14:26
• Knowing the game Minecraft, I think that in your example given the block on line 2 does not stop the adjacent torch from giving power (the redstone doesn't actually connect to the block). Is this an error or a meant simplification? Commented Jan 29, 2013 at 19:15

import Data.Char
import Data.List
f x=[(++[x]).tail,(x:).init]
h(' ':_)=' '
h('T':s)=if elem 'b's then 'T'else 't'
h('t':s)=h$'T':s h('B':s)=if any(elems)['e'..'s']then 'b'else 'B' h('b':s)=h$'B':s
h(_:s)=max 'd'$chr$ord(maximum s)-1
o ' '=' '
o c|elem c"dTB"='0'
o _='1'
a=(map.map)o.(!!(64^2+16)).iterate(map(map h.transpose).transpose.(\l->[g l|g<-id:f(map(const ' ')$head l)++map map (f ' ')]))  map(map h.transpose).transpose.(\l->[g l|g<-id:f(map(const ' ')$head l)++map map (f ' ')]) replaces each tile by a list of itself followed by its four neighbors, then maps that through h. h says for each tile how it reacts to neighbors: Torches turn off ('T' rather than 't') when there's a power block ('b') nearby, wires ('d' for dead through 's') imperfectly copy their most-powered neighbor (though cant get worse than dead), etc.

iterate repeats this step, (!!(64^2+16)) plucks out an iteration at which acyclic circuits are done converging, and I totally wrote it like that to give an intuitive bound, not to land at 400.

Python, 699

This is just a quick pass (ran out of time for now). It can probably use a lot more golfing.

import sys
e=enumerate
S=set
s=lambda x:S([(r,c)for r,i in e(m)for c,j in e(i)if j==x])
q=S()
t=s('T')
b=s('B')
n=s('R')
def d(o,r,c,i,h,q):
if i<0:return 0
o[(r,c)]=1
for p in[(r+1,c),(r-1,c),(r,c+1),(r,c-1)]:
if p in q or(p in b and not(r,c)in n):continue
if(r,c)in b and p in t-q:
x=S([p])
q|=x
o[p]=0
return 1
if p in h or not p in o:continue
h|=S([p])
if not d(o,p[0],p[1],i-1,h,q):return 1
g=1
while g:
o=dict(zip(b,[0]*len(b))+zip(n,[0]*len(n))+zip(q,[0]*len(q)))
g=0
for x,y in t:
if not(x,y)in q and d(o,x,y,15,S(),q):g=1
for p in o.keys():m[p[0]][p[1]]=o[p]
print"\n".join(map(lambda x:"".join(map(str,x)),m))

• Yep, for example, you could use f=set and create a l=lambda x:zip(x,[0]*len(x)). Well, you'd still be over 700 chars. Also, you left a useless space at ... or not (a,z)in o. Commented Jul 5, 2013 at 11:30
• Do you need the space after your print statement? Commented Apr 16, 2017 at 21:16
• @ZacharyT You're right. Thanks! Commented Apr 17, 2017 at 0:56
• This was already said, but f=set would shave a few chars, and you have another useless character @ not (a,z)in o Commented Apr 17, 2017 at 1:28
• Use tabs AND spaces for some indentation savings. Commented Apr 17, 2017 at 13:54

Python 2, 556 bytes

c=' 0';L=len;M=map;q=list;r='B';s='16';t='T';u='0';E=enumerate
b=[q(M(lambda x:x+[u,s][x==t],q(w[:-1])))+[c]*(64-L(w))for w in open('redstone.txt')]
k=lambda h,l,z:max(q(M(lambda x:[int((x or c)[1:]),0][l^((x or c)[0]==h)],z)))
def v(d=0):
for e,f in E(b):
for g,G in E(f):z=[e!=0and b[e-1][g],g<L(f)-1and f[g+1],e<L(b)-1and b[e+1][g],g and f[g-1]];j=G;i=j[0]+str([[s,u][k(r,1,z)>0],4,4,k(t,0,z),0,max(1,k(r,0,z))-1][ord(j[0])%7]);b[e][g]=i;d=d|(i!=j)
return d
while v():0
for f in b:print''.join(M(lambda j:[' ',int(j[1:]!=u)][j[0]!=' '],f))+'\n'


See it in action

• Assumes each line in input ends with a newline
• Outputs via print()
• Each line of output ends with lots of whitespace and a newline

• Saved lots of bytes thanks to @mbomb007 (#34718)
• Saved 1 byte thanks to @ZacharyT (#55550)
• You are not required to have input and output via files. You may use stdin and stdout, with input() and print. Also, str(int(bool(j[1:]!=u))) is the same as int(j[1:]!=u). Commented Aug 3, 2016 at 18:07
• @mbomb007 Well, not quite, I still need the str(, but good point about bool(. Commented Aug 3, 2016 at 18:15
• x (using backticks, it's an alias for repr) is the same as str(x) (for small integers, at least. It's different for certain objects, longs, generators, etc). Another golf: if g!=0 is the same as if g. You can also have k=lambda h,l,z:max(... Commented Aug 3, 2016 at 18:16
• @mbomb007 Backticks are not for Py3, and I don't have 2 on this pc. If I install it or switch computers, I'll add that, thanks. Commented Aug 3, 2016 at 18:19
• Do you need the space here? print ''? Could it be print''? Commented Apr 16, 2017 at 21:14