Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main
Dim A(4005)
Scrivi "Biambi simmetrici Univoci",True,True,3,1,3
ReDim At(2)
At(1) = " Casi "
At(2) = " Biambi Simmetrici "
Call InitTabella(At,1,,3,5)
For N = 1 To 89
For M = N + 1 To 90
K = K + 1
A(k) = Format2(N) & "." & Format2(M)
Next
Next
For k = 1 To 2002
ReDim Av(2)
Av(1) = K
Av(2) = A(K) & "." & A(4006 - K)
Call AddRigaTabella(Av,,,3)
'Scrivi A(K) & "." & A(4006-K)
Next
Call CreaTabella()
'Scrivi "Totali Quartine " & K,1
End Sub
Ciao a tutti,
da ignorante assoluto della creazione di script, mi pare sia sufficiente sostituire nello script di Joe la seguente riga
Scrivi A(K) & ";" & A(4006-K)
con questa
Scrivi A(K) & "." & A(4006-K)
e dovrebbe dare tutte le quartine.
Vi metto però in guardia che diverse quartine così facendo hanno numeri ripetuti al loro interno, pertanto diventano terzine e ci sono anche diverse quartine uguali che andrebbero eliminate.
Ovviamente gli storici delle terzine non sono paragonabili a quelli delle quartine.
Ciao a tutti,
Matteo