waifu 求解器
作者:SasakiSaki
#16 in #Wolfram
7KB 182 行
https://mathworld.wolfram.com/LightsOutPuzzle.html
https://zhuanlan.zhihu.com/p/21265602
https://zhuanlan.zhihu.com/p/53646257
http://yanhaijing.com/inverter/
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
lib.rs
https://www.logicgamesonline.com/lightsout/tutorial.html