15 puzzle solver: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
Alextretyak (talk | contribs) m (→{{header|11l}}) |
||
Line 40: | Line 40: | ||
<lang 11l>-V |
<lang 11l>-V |
||
nr = [3, 0, 0, 0, 0, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3] |
|||
nc = [3, 0, 1, 2, 3, 0, 1, 2, 3, 0, 1, 2, 3, 0, 1, 2] |
|||
T Solver |
T Solver |
||
Line 66: | Line 66: | ||
.n2[n + 1] = .n2[n] - a + (a << 16) |
.n2[n + 1] = .n2[n] - a + (a << 16) |
||
.n3[n + 1] = Char(‘d’) |
.n3[n + 1] = Char(‘d’) |
||
.n4[n + 1] = .n4[n] + Int( |
.n4[n + 1] = .n4[n] + Int(:nr[Int(a >> g)] > .n0[n] I/ 4) |
||
F fG() |
F fG() |
||
Line 75: | Line 75: | ||
.n2[n + 1] = .n2[n] - a + (a >> 16) |
.n2[n + 1] = .n2[n] - a + (a >> 16) |
||
.n3[n + 1] = Char(‘u’) |
.n3[n + 1] = Char(‘u’) |
||
.n4[n + 1] = .n4[n] + Int( |
.n4[n + 1] = .n4[n] + Int(:nr[Int(a >> g)] < .n0[n] I/ 4) |
||
F fE() |
F fE() |
||
Line 84: | Line 84: | ||
.n2[n + 1] = .n2[n] - a + (a << 4) |
.n2[n + 1] = .n2[n] - a + (a << 4) |
||
.n3[n + 1] = Char(‘r’) |
.n3[n + 1] = Char(‘r’) |
||
.n4[n + 1] = .n4[n] + Int( |
.n4[n + 1] = .n4[n] + Int(:nc[Int(a >> g)] > .n0[n] % 4) |
||
F fL() |
F fL() |
||
Line 93: | Line 93: | ||
.n2[n + 1] = .n2[n] - a + (a >> 4) |
.n2[n + 1] = .n2[n] - a + (a >> 4) |
||
.n3[n + 1] = Char(‘l’) |
.n3[n + 1] = Char(‘l’) |
||
.n4[n + 1] = .n4[n] + Int( |
.n4[n + 1] = .n4[n] + Int(:nc[Int(a >> g)] < .n0[n] % 4) |
||
F fY() |
F fY() |