-
Notifications
You must be signed in to change notification settings - Fork 0
/
Bonus.vb
118 lines (98 loc) · 3.37 KB
/
Bonus.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
Option Explicit
Dim matriz() As String
Dim revision() As String
Sub programa()
progAfin
challenge
revisar
End Sub
Sub progAfin()
Dim A, B, C, D, E As Integer
Dim F, G, H, I, J, K As Integer
Dim contador As Integer
ReDim matriz(1365, 2)
contador = 1
For A = 1 To 5
For B = 2 To 6
For C = 3 To 7
For D = 4 To 8
For E = 5 To 9
For F = 6 To 10
For G = 7 To 11
for H = 8 to 12
for I = 9 to 13
for J = 10 to 14
for K = 11 to 15
If A < B And A < C And A < D And A < E And A < F And A < G And A < H And A < I And A < J And A < K And B < C And B < D And B < E And B < F And B < G And B < H And B < I And B < J And B < K And C < D And C < E And C < F And C < G And C < H And C < I And C < J And C < K And D < E And D < F And D < G And D < H And D < I And D < J And D < K And E < F And E < G And E < H And E < I And E < J And E < K And F < G And F < H And F < I And F < J And F < K And G < H And G < I And G < J And G < K And H < I And H < J And H < K And I < J And I < K And J < K then
If A <> B And A <> C And A <> D And A <> E And A <> F And A <> G And A <> H And A <> I And A <> J And A <> K And B <> C And B <> D And B <> E And B <> F And B <> G And B <> H And B <> I And B <> J And B <> K And C <> D And C <> E And C <> F And C <> G And C <> H And C <> I And C <> J And C <> K And D <> E And D <> F And D <> G And D <> H And D <> I And D <> J And D <> K And E <> F And E <> G And E <> H And E <> I And E <> J And E <> K And F <> G And F <> H And F <> I And F <> J And F <> K And G <> H And G <> I And G <> J And G <> K And H <> I And H <> J And H <> K And I <> J And I <> K And J <> K then
matriz(contador, 1) = (CStr(A) + CStr(B) + CStr(C) + CStr(D) + CStr(E) + CStr(F) + CStr(G) + CStr(H) + CStr(I) + CStr(J) + CStr(K))
matriz(contador, 0) = "0"
contador = contador + 1
endif
End If
next
next
next
next
Next
Next
Next
Next
Next
Next
Next
End Sub
Sub challenge()
Dim iteraciones, i, j As Integer
Dim numeros() As Integer
Dim size, pos As Integer
Dim final As String
ReDim numeros(15)
For iteraciones = 1 To 32000
size = 15
pos = 0
For i = 1 To 15
numeros(i) = i
Next
While size > 11
For j = 1 To iteraciones
If pos = 15 Then
pos = 1
Else
pos = pos + 1
End If
If numeros(pos) = 0 Then
j = j - 1
End If
Next
numeros(pos) = 0
size = size - 1
Wend
For i = 1 To 15
If numeros(i) <> 0 Then
final = (CStr(final) + CStr(i))
End If
Next
llenar (final)
final = ""
Next
End Sub
Sub llenar(valor)
Dim paso As Integer
For paso = 1 To 1365
If matriz(paso, 1) = valor Then
matriz(paso, 0) = CStr(Int(matriz(paso, 0)) + 1)
End If
Next
End Sub
Sub revisar()
Dim paso, contador As Integer
ReDim revision(1365)
contador = 1
For paso = 1 To 1365
If matriz(paso, 0) = "0" Then
revision(contador) = matriz(paso, 1)
contador = contador + 1
End If
Next
End Sub