Option Explicit
Sub Main
Dim n(24),st,rt,cc,w,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16
Dim v17,v18,v19,v20,v21,v22,v23,v24
Dim y5,y6,y7,y8,y9,y10,y11,y12,y13,y14,y15,y16
Dim y17,y18,y19,y20,y21,y22,y23,y24
Dim a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16
Dim a17,a18,a19,a20,a21,a22,a23,a24
Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,ru(11)
Dim co1,co2,es
r1 = 1:r2 = 2:r3 = 3:r4 = 4:r5 = 5:r6 = 6:r7 = 7:r8 = 8:r9 = 9:r10 = 10:r11 = 12
ru(1) = r1:ru(2) = r2:ru(3) = r3:ru(4) = r4:ru(5) = r5:ru(6) = r6:ru(7) = r7:ru(8) = r8:ru(9) = r9:ru(10) = r10:ru(11) = r11
cc = 0
w = 2
n(1) = 83
n(2) = 73
n(3) = 38
n(4) = 74
v5 = Array(12,14,30,32,34)
v6 = Array(58,76,78)
v7 = Array(52,54,70,72,90)
v8 = Array(16,18,36)
v9 = Array(46,48)
v10 = Array(82,84)
v11 = Array(8,26)
v12 = Array(60,62,80)
v13 = Array(68,86,88)
v14 = Array(2,4,22,24,40,42,44)'
v15 = Array(61,63)
v16 = Array(65,67,85,87,89)
v17 = Array(29,49)
v18 = Array(1,3,21,23,41)
v19 = Array(7,9,25,27,45)
v20 = Array(37,39)
v21 = Array(17,35)
v22 = Array(55,57,59,75,77,79)
v23 = Array(11,13,31)
v24 = Array(51,53,71)
y5 = UBound(v5)
y6 = UBound(v6)
y7 = UBound(v7)
y8 = UBound(v8)
y9 = UBound(v9)
y10 = UBound(v10)
y11 = UBound(v11)
y12 = UBound(v12)
y13 = UBound(v13)
y14 = UBound(v14)
y15 = UBound(v15)
y16 = UBound(v16)
y17 = UBound(v17)
y18 = UBound(v18)
y19 = UBound(v19)
y20 = UBound(v20)
y21 = UBound(v21)
y22 = UBound(v22)
y23 = UBound(v23)
y24 = UBound(v24)
For a5 = 0 To y5
For a6 = 0 To y6
For a7 = 0 To y7
For a8 = 0 To y8
For a9 = 0 To y9
For a10 = 0 To y10
For a11 = 0 To y11
If ScriptInterrotto Then Exit For
For a12 = 0 To y12
For a13 = 0 To y13
For a14 = 0 To y14
For a15 = 0 To y15
If ScriptInterrotto Then Exit For
For a16 = 0 To y16
For a17 = 0 To y17
If ScriptInterrotto Then Exit For
For a18 = 0 To y18
For a19 = 0 To y19
If ScriptInterrotto Then Exit For
For a20 = 0 To y20
For a21 = 0 To y21
If ScriptInterrotto Then Exit For
For a22 = 0 To y22
For a23 = 0 To y23
If ScriptInterrotto Then Exit For
For a24 = 0 To y24
n(5) = v5(a5)
n(6) = v6(a6)
n(7) = v7(a7)
n(8) = v8(a8)
n(9) = v9(a9)
n(10) = v10(a10)
n(11) = v11(a11)
n(12) = v12(a12)
n(13) = v13(a13)
n(14) = v14(a14)
n(15) = v15(a15)
n(16) = v16(a16)
n(17) = v17(a17)
n(18) = v18(a18)
n(19) = v19(a19)
n(20) = v20(a20)
n(21) = v21(a21)
n(22) = v22(a22)
n(23) = v23(a23)
n(24) = v24(a24)
rt = SerieRitardoTurbo(EstrazioneFin - 10,EstrazioneFin,n,ru,w)'8117
If rt = 0 Then
st = SerieStoricoTurbo(8117,EstrazioneFin,n,ru,w)'8117
If st = 0 Then
cc = cc + 1
Scrivi "aa(" & FormatSpace(cc,5,1) & ") = Array(0," & StringaNumeri(n,,True) _
& " st " & FormatSpace(st,5,1) & " at " & FormatSpace(rt,5,1)
If cc Mod 50 = 0 Then'<<
Messaggio cc & ") " & StringaNumeri(n)
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub