15 puzzle solver: Difference between revisions

m
(Added 11l)
Line 40:
 
<lang 11l>-V
Nrnr = [3, 0, 0, 0, 0, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3]
Ncnc = [3, 0, 1, 2, 3, 0, 1, 2, 3, 0, 1, 2, 3, 0, 1, 2]
 
T Solver
Line 66:
.n2[n + 1] = .n2[n] - a + (a << 16)
.n3[n + 1] = Char(‘d’)
.n4[n + 1] = .n4[n] + Int(Nr:nr[Int(a >> g)] > .n0[n] I/ 4)
 
F fG()
Line 75:
.n2[n + 1] = .n2[n] - a + (a >> 16)
.n3[n + 1] = Char(‘u’)
.n4[n + 1] = .n4[n] + Int(Nr:nr[Int(a >> g)] < .n0[n] I/ 4)
 
F fE()
Line 84:
.n2[n + 1] = .n2[n] - a + (a << 4)
.n3[n + 1] = Char(‘r’)
.n4[n + 1] = .n4[n] + Int(Nc:nc[Int(a >> g)] > .n0[n] % 4)
 
F fL()
Line 93:
.n2[n + 1] = .n2[n] - a + (a >> 4)
.n3[n + 1] = Char(‘l’)
.n4[n + 1] = .n4[n] + Int(Nc:nc[Int(a >> g)] < .n0[n] % 4)
 
F fY()
1,480

edits