|
rem 3×3のライツアウトを解くプログラムです。 rem 十進basicで作りました。
DIM a(9,9) DIM b(9,9) DIM c(9) DIM d(9)
MAT a=ZER LET a(1,1)=1 LET a(1,2)=1 LET a(1,4)=1 LET a(2,1)=1 LET a(2,2)=1 LET a(2,3)=1 LET a(2,5)=1 LET a(3,2)=1 LET a(3,3)=1 LET a(3,6)=1 LET a(4,1)=1 LET a(4,4)=1 LET a(4,5)=1 LET a(4,7)=1 LET a(5,2)=1 LET a(5,4)=1 LET a(5,5)=1 LET a(5,6)=1 LET a(5,8)=1 LET a(6,3)=1 LET a(6,5)=1 LET a(6,6)=1 LET a(6,9)=1 LET a(7,4)=1 LET a(7,7)=1 LET a(7,8)=1 LET a(8,5)=1 LET a(8,7)=1 LET a(8,8)=1 LET a(8,9)=1 LET a(9,6)=1 LET a(9,8)=1 LET a(9,9)=1 MAT b=INV(a) LET c(1)=1 LET c(2)=1 LET c(3)=0 LET c(4)=0 LET c(5)=0 LET c(6)=0 LET c(7)=1 LET c(8)=0 LET c(9)=0 MAT d=b*c
LET g=DET(a) DIM h(9) MAT h=g*d FOR k=1 TO 9
PRINT MOD( h(k),2) NEXT K
END
|
No.23019 2021/10/04(Mon) 12:06:01
|