|
vbscript |
|
' 2--1 6--7
' / ` / ` '3 -- 8 ' ` / ` / ' 4--5 10--9 R:1,G:2 dim a(10),b(1000) a(0)=0 call saiki(1,a,b,d) msgbox a(0) sub saiki(n,a(),b(),d) a(n)=1 while a(n)<=2 if n<10 then call saiki(n+1,a,b,d) else b(0)="" for j=1 to 10 b(0)=b(0)&c(a(j)) next deta=0 j=1 while deta=0 and j<=a(0) jj=1 while deta=0 and jj<=3 select case jj case 1'上下 bb=c(a(5))&c(a(4))&c(a(3))&c(a(2))&c(a(1))&c(a(10))&c(a(9))&c(a(8))&c(a(7))&c(a(6)) case 2'左右 bb=c(a(6))&c(a(7))&c(a(8))&c(a(9))&c(a(10))&c(a(1))&c(a(2))&c(a(3))&c(a(4))&c(a(5)) case else'回転 bb=c(a(10))&c(a(9))&c(a(8))&c(a(7))&c(a(6))&c(a(5))&c(a(4))&c(a(3))&c(a(2))&c(a(1)) end select if b(j)=bb then deta=1 else jj=jj+1 end if wend j=j+1 wend if deta=0 then a(0)=a(0)+1 b(a(0))=b(0) 'input #1,b(a(0)) end if end if a(n)=a(n)+1 wend end sub function c(n) if n=1 then c="R" else c="G" end if end function |
|
11月5日（土） 9:33:42
45492 |