Suggerimento script

[stef]

Vorrei realizzare uno script che trovi combinazioni di numeri con almeno "n" numeri uguali.

Esempio con 5 numeri uguali:
52163121151 (il numero 1 è ripetuto 5 volte)
25354855569 (il numero 5 è ripetuto 5 volte)

chiedo ai più esperti quale funzione potrei utilizzare per cercare questo tipo di combinazioni?

 

[Mike58]

Ciao Stef, una funzione specifica non la trova, ma prendendo i 5 estratti per ogni estrazioni,e scomponendoli con la funzione left , right ottieni la scomposizione dell'estratto in due numeri ripeti l'operazione per gli altri estratti e ottieni 10 numeri.
Metti i numeri in un Vettore e con un if then determini la condizione di frequenza da trovare.

Prova a vedere dove arrivi !!!

Altrimenti vedo cosa posso fare

Ciao

 

[stef]

Grazie Mike, è stato più semplice di quanto pensassi.

 

[Mike58]

Ottimo Stef, a beneficio di quelli che vogliono imparare, puoi se non ti crea problemi postare lo script ? , cosi che altri ed io stesso può estrapolare qualche idea.

Un saluto

Mike

 

[stef]

Nessun problema, è uno script senza grosse pretese

Sub Main
    Dim es,po,ru,cc,nr,n,qq,z
    Dim ns(10)
    ru = 1
    nr = CInt(InputBox("Quanti numeri ripetuti devo trovare?",,5))
    For es = EstrazioneFin - 1000 To EstrazioneFin
        cc = 1
        For po = 1 To 5
            ns(cc) = Left(Estratto(es,ru,po),1)
            ns(cc + 1) = Right(Estratto(es,ru,po),1)
            cc = cc + 2
        Next
        For n = 1 To 10
            qq = 0
            For z = n + 1 To 10
                If ns(n) = ns(z) Then qq = qq + 1
            Next
            If qq >= nr Then
                Scrivi StringaEstratti(es,ru) & "  " & qq
                Exit For
            End If
        Next
    Next
End Sub

 

[Mike58]

Ciao Stef, può sempre servire, lo archivio nei miei script e tornerà sicuramente utile il procedimento si calcolo.


Grazie