1 unstable release
0.1.0 | Apr 17, 2022 |
---|
#14 in #wolfram
7KB
182 lines
Lights Out Solver
Basic
Todo list
t = {
{1, 1, 0},
{1, 1, 1},
{0, 1, 1}
}
i = IdentityMatrix[3]
m = ArrayFlatten[{
{t, i, 0},
{i, t, i},
{0, i, t}
}]
Inverse[m, Modulus -> 2] . Table[Subscript[x, i], {i, 9}] // TableForm