鬼畜米英日軍の損害を祝うｽﾚ【134個大隊壊滅】
'>>236-238 他
'この件は、これで終わり。誰もが理解できる説明は此処では不可能なので、
'「誰でも」出来る解き方、大急ぎで書いたのでバグあったら御容赦願う
'数時間で回答を10個程吐き出すと思う
'メモ帳等でファイル名"5x5.VBS"で保存
'強制終了や躍動確認は、"wscript.exe@プロセス@タククマネージャ"から
'-----------------------------------------------------
Dim m(25)
m(1)=25690112:m(2)=29622272:m(3)=14811136:m(4)=7405568:m(5)=3178496
m(6)=17580032:m(7)=9314304:m(8)=4657152:m(9)=2328576:m(10)=1147904
m(11)=549376:m(12)=291072:m(13)=145536:m(14)=72768:m(15)=35872
m(16)=17168:m(17)=9096:m(18)=4548:m(19)=2274:m(20)=1121:m(21)=536
m(22)=284:m(23)=142:m(24)=71:m(25)=35
For i=1 To 33554462
x = 0
For j=0 To 24
a = 2^j:b = i and a
IF b = a thenx = x Xor m(j+1)
IF x = 2^25-1then Call snisinn(i)
Next
Next
msgbox("終了")
Sub snisinn(k)
DIM Arraya(24)
For n = 0 to 24
IF (k and 2^n)=2^n Then Arraya(n)=1 Else Arraya(n)=0
Next
nisinn = Join(Arraya,",")
msgbox ("回答=" & nisinn)
End sub
'この件は、これで終わり。誰もが理解できる説明は此処では不可能なので、
'「誰でも」出来る解き方、大急ぎで書いたのでバグあったら御容赦願う
'数時間で回答を10個程吐き出すと思う
'メモ帳等でファイル名"5x5.VBS"で保存
'強制終了や躍動確認は、"wscript.exe@プロセス@タククマネージャ"から
'-----------------------------------------------------
Dim m(25)
m(1)=25690112:m(2)=29622272:m(3)=14811136:m(4)=7405568:m(5)=3178496
m(6)=17580032:m(7)=9314304:m(8)=4657152:m(9)=2328576:m(10)=1147904
m(11)=549376:m(12)=291072:m(13)=145536:m(14)=72768:m(15)=35872
m(16)=17168:m(17)=9096:m(18)=4548:m(19)=2274:m(20)=1121:m(21)=536
m(22)=284:m(23)=142:m(24)=71:m(25)=35
For i=1 To 33554462
x = 0
For j=0 To 24
a = 2^j:b = i and a
IF b = a thenx = x Xor m(j+1)
IF x = 2^25-1then Call snisinn(i)
Next
Next
msgbox("終了")
Sub snisinn(k)
DIM Arraya(24)
For n = 0 to 24
IF (k and 2^n)=2^n Then Arraya(n)=1 Else Arraya(n)=0
Next
nisinn = Join(Arraya,",")
msgbox ("回答=" & nisinn)
End sub
|
|
|