annuncio

Comprimi
Ancora nessun annuncio.

x salv50 ambo unito e non ma isotopo

Comprimi
X
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • x salv50 ambo unito e non ma isotopo

    anche in 3 estrazioni precedenti,trovare due ambi che abbiano in comune la stessa distanza ed isotopi.(le coppie possono essere anche non unite ma isotope )

    estrazione del 24/03/2011
    NA 14 42 <dist. 28>
    estrazione del 31/03/2011
    TO 08-36 <dist 28>

    pertanto averemo

    14 (+28) 42 (+28) [ 70] (+28) 08 (+28) 36

    Il 70 il numero che mancava e sar ambata
    abbinamenti per ambo 14-36 NA-TO.
    In questo caso il 70 si incastrato perfettamente al centro, sono validi anche incastri che si inseriscano in altre posizioni.
    ************************************************** ******
    ESTRAZIONE 20/04/2019
    RO 65.13 <DIST.38>
    NZ 89 37 <Dist. 38>

    65 (+38) 13 [51] 89 (+38) 37

    AMBATA =51
    ABBINAMENTI PER AMBO=65.37 RO-NZ

    ************************************************** *****
    ESTRAZIONE DEL 27.04.2019
    FI 19.08. Dist. 11
    NZ 41.52 Dist. 11
    08 (11) 19 (11) [30] (11) 41 (11) 52


    AMBATA =30
    ABBINAMENTI = 19.52 FI-NAZ
    Ultima modifica di kubes; 14-05-2019, 16:31.
    La fortuna non sempre e tutta opera del caso

  • #2
    Ciao a Tutti.

    Avevo buttato la spugna, quando mi sono ricordato che alcuni mesi fa, uno script quasi uguale l'avevo fatto per Juri (con l'aiuto straordinario di DJNomade) .
    E' lo stesso script gli ho solo aggiunto la ricerca dei 2 ambi e l'isotopia


    codice:
    Option Explicit
    Sub Main()
       Dim R1,R2,P1,P2,P3,P4,P5,P6,A,B,C,D
       Dim DZ12,DZ23,DZ34,DZ14,E1,E2,X,Clp,Salvo50
       Dim Es,Ini,Fin,Nu,D2,Caso,Casi
       Dim Am(1),Z(4),Ambo1(2),Ambo2(2)
       Dim Ruote(2),Posta(1),Poste(2)
       Posta(1) = 1
       Poste(2) = 1
       Fin = EstrazioneFin
       Ini = 9600
       Clp = CInt(InputBox(" Per quanti colpi vuoi giocare? ",Salvo50,7))
       Call ScegliRange(Ini,Fin,Ini,Fin)
       Scrivi Space(12) & "CHIESTO da KUBES AMBO ISOTOPO STESSA DISTANZA - SCRIPT Salvo50",1,,4,,3,,1
       For Es = Ini To Fin
          Caso = 0
          Messaggio "Estrazione esaminata: " & CStr(Es)
          AvanzamentoElab Ini,Fin,Es
          For R1 = 1 To 10
             For P1 = 1 To 4
                For P2 = P1 + 1 To 5
                   A = Estratto(Es,R1,P1)
                   B = Estratto(Es,R1,P2)
                   For R2 = R1 + 1 To 12
                      If R2 = 11 Then R2 = 12
                      C = Estratto(Es,R2,P1)
                      D = Estratto(Es,R2,P2)
                      If A <> C And A <> D And B <> C And B <> D Then
                         Z(1) = A : Z(2) = B : Z(3) = C : Z(4) = D
                         Call OrdinaMatrice(Z,1)
                         DZ12 = Distanza(Z(1),Z(2))
                         DZ23 = Distanza(Z(2),Z(3))
                         DZ34 = Distanza(Z(3),Z(4))
                         DZ14 = Distanza(Z(1),Z(4))
                         For X = 1 To 45
                            If(DZ12 = X And DZ23 = X And DZ34 =(X * 2))_
                               Xor(DZ12 = X And DZ34 = X And DZ23 =(X * 2))_
                               Xor(DZ12 = X And DZ34 = X And DZ14 =(X * 2))_
                               Xor(DZ12 = X And DZ14 = X And DZ34 =(X * 2))_
                               Xor(DZ23 = X And DZ34 = X And DZ12 =(X * 2))_
                               Xor(DZ23 = X And DZ34 = X And DZ14 =(X * 2))_
                               Xor(DZ23 = X And DZ14 = X And DZ34 =(X * 2))_
                               Xor(DZ12 = X And DZ23 = X And DZ34 = X)_
                               Xor(DZ23 = X And DZ34 = X And DZ14 = X) Then
                               If DZ12 =(X * 2) Then Nu = Fuori90(Z(1) + X)
                               If DZ23 =(X * 2) Then Nu = Fuori90(Z(2) + X)
                               If DZ34 =(X * 2) Then Nu = Fuori90(Z(3) + X)
                               If DZ14 =(X * 2) Then Nu = Fuori90(Z(4) + X)
                               If(DZ12 = X And DZ23 = X And DZ34 = X) Then Nu = Fuori90(Z(4) + X)
                               If(DZ23 = X And DZ34 = X And DZ14 = X) Then Nu = Fuori90(Z(1) + X)
                               Caso = Caso + 1
                               Casi = Casi + 1
                               ColoreTesto 1
                               Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                               ColoreTesto 2
                               Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                               ColoreTesto 0
                               Scrivi
                               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                               Scrivi "  " & SiglaRuota(R1) & " ",1,0
                               For P5 = 1 To 5
                                  E1 = Estratto(Es,R1,P5)
                                  If E1 = A Or E1 = B Then
                                     Call ColoreTesto(2)
                                  Else
                                     Call ColoreTesto(0)
                                  End If
                                  Call Scrivi(Format2(E1) & " ",1,0)
                                  Call ColoreTesto(0)
                               Next
                               Scrivi
                               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                               Scrivi "  " & SiglaRuota(R2) & " ",1,0
                               For P6 = 1 To 5
                                  E2 = Estratto(Es,R2,P6)
                                  If E2 = C Or E2 = D Then
                                     Call ColoreTesto(2)
                                  Else
                                     Call ColoreTesto(0)
                                  End If
                                  Call Scrivi(Format2(E2) & " ",1,0)
                                  Call ColoreTesto(0)
                               Next
                               Scrivi "  Distanza " & Format2(X) & "  Mancante ",1,0
                               Scrivi Format2(Nu),1,,,2
                               If(DZ12 = X And DZ23 = X And DZ34 =(X * 2)) Then Scrivi" Sequenza " & Z(1) & "-" & Z(2) & "-" & Z(3) & "-" & Nu & "-" & Z(4),1
                               If(DZ12 = X And DZ34 = X And DZ23 =(X * 2)) Then Scrivi" Sequenza " & Z(1) & "-" & Z(2) & "-" & Nu & "-" & Z(3) & "-" & Z(4),1
                               If(DZ12 = X And DZ34 = X And DZ14 =(X * 2)) Then Scrivi" Sequenza " & Z(1) & "-" & Z(2) & "-" & Z(3) & "-" & Z(4) & "-" & Nu,1
                               If(DZ12 = X And DZ14 = X And DZ34 =(X * 2)) Then Scrivi" Sequenza " & Z(3) & "-" & Nu & "-" & Z(4) & "-" & Z(1) & "-" & Z(2),1
                               If(DZ23 = X And DZ34 = X And DZ12 =(X * 2)) Then Scrivi" Sequenza " & Z(1) & "-" & Nu & "-" & Z(2) & "-" & Z(3) & "-" & Z(4),1
                               If(DZ23 = X And DZ34 = X And DZ14 =(X * 2)) Then Scrivi" Sequenza " & Z(2) & "-" & Z(3) & "-" & Z(4) & "-" & Nu & "-" & Z(1),1
                               If(DZ23 = X And DZ14 = X And DZ34 =(X * 2)) Then Scrivi" Sequenza " & Z(2) & "-" & Z(3) & "-" & Nu & "-" & Z(4) & "-" & Z(1),1
                               If(DZ12 = X And DZ23 = X And DZ34 = X) Then Scrivi" Sequenza " & Z(1) & "-" & Z(2) & "-" & Z(3) & "-" & Z(4) & "-" & Nu,1
                               If(DZ23 = X And DZ34 = X And DZ14 = X) Then Scrivi" Sequenza " & Z(2) & "-" & Z(3) & "-" & Z(4) & "-" & Z(1) & "-" & Nu,1
                               Ruote(1) = R1
                               Ruote(2) = R2
                               Am(1) = Nu
                               Scrivi
                               ImpostaGiocata 1,Am,Ruote,Posta,Clp,1
                               Ambo1(1) = Nu : Ambo1(2) = A
                               ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp
                               Ambo2(1) = Nu : Ambo2(2) = D
                               ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp
                               Gioca Es
                            End If
                            If ScriptInterrotto Then Exit Sub
                         Next
                      End If
                   Next
                Next
             Next
          Next
          If ScriptInterrotto Then Exit Sub
       Next
       ScriviResoconto
    End Sub
    Ultima modifica di salvo50; 15-05-2019, 14:43.
    Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

    (B. Castiglione, - Il cortegiano)

    Commenta


    • #3
      GENTILISSIMO E SEMPRE ALLA GRANDE, GRAZIE
      La fortuna non sempre e tutta opera del caso

      Commenta


      • #4
        scusate se mi intrometto..
        sarebbe possibile riadattarlo in questo modo

        trovare due ambi nella stessa estrazione e in posizione isotopa che abbiano in comune la stessa distanza
        e mettere in gioco il vertibile del numero + piccolo fra i 4 e i restanti 3

        esempio ge 29 1 to 25 53
        in gioco su ge to
        10,29,25,83


        ed eventualmente se non si disfa tutto lo script ..avere la possibilit di disabilitare quella parte di codice che verifica l'isotopia magari mettendo ' come fosse un commento, in modo da poter cogliere anche coppie con stessa distanza ma in posizioni differenti, ma se impiccia non importa

        Commenta


        • #5
          Ciao Ila, dimmi come va questo..mi sono superato sul vertibile (stavo quasi rinunciando) ahahaha



          codice:
          Sub Main
             ColoreTesto 0
             Scrivi " METODO Ambi Isotopi con egual Differenza  -------- LISTATO BY SALVO modificato da GIORYUKEN72",,1,3,,4
             Scrivi
             ColoreTesto 0
             Dim Fin,Ini,Es,R1,R2,Casi,P1,P2
             Dim Nn(4),quartina1(4)
             Dim ruota(2),posteQ(4)
             posteQ(2) = 1.1 'euro sulla sorte Ambo
             posteQ(3) = 0.3 'euro sulla sorte Terno
             posteQ(4) = 0.1 'euro sulla sorte Quaterna
             Fin = EstrazioneFin
             Ini = InputBox("Da quale estrazione vuoi inziare la ricerca?","INSERIRE IL NUMERO DELL'ESTRAZIONE",9617)
             Call ScegliRange(EstrazioneIni,Fin,Ini,EstrazioneFin)
             For Es = Ini To Fin
                AvanzamentoElab Ini,Fin,Es
                For R1 = 1 To 10
                   For R2 = R1 + 1 To 12
                      For P1 = 1 To 4
                         For P2 = P1 + 1 To 5
                            Nn(1) = Estratto(Es,R1,P1)
                            Nn(2) = Estratto(Es,R1,P2)
                            Nn(3) = Estratto(Es,R2,P1)
                            Nn(4) = Estratto(Es,R2,P2)
                            ok = 0
                            If Differenza(Nn(1),Nn(2)) = Differenza(Nn(3),Nn(4)) Then :ok = 1
                            If ok = 1 Then
                               Casi = Casi + 1
                               ruota(1) = R1
                               ruota(2) = R2
                               Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Casi,"0000"),1,,,1
                               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                               Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
                               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                               Scrivi "  " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1
                               Scrivi Space(40) & Format2(Nn(1)) & " >> " & Format2(Nn(2)) & " =  " & Differenza(Nn(1),Nn(2)),1,,,2
                               Scrivi Space(40) & Format2(Nn(3)) & " >> " & Format2(Nn(4)) & " =  " & Differenza(Nn(3),Nn(4)),1,,,2
                               ColoreTesto 0
                               Call OrdinaMatrice(Nn,1)
                               quartina1(1) = Vert(Nn(1))
                               quartina1(2) = Nn(2)
                               quartina1(3) = Nn(3)
                               quartina1(4) = Nn(4)
                               ImpostaGiocata 1,quartina1,ruota,posteQ,9,2
                               Gioca Es,,,1
                            End If
                           Next
                      Next
                   Next
                Next
             Next
             ColoreTesto 0
             Scrivi String(65,"")
             TestoInBandaPassante " ***** LISTATO BY SALVO modificato da GIORYUKEN72 ***** ",1,3,0
             ScriviResoconto
          End Sub

          Ciao
          Gio.
          “Ecco il mio segreto. molto semplice: non si vede bene che col cuore. L’essenziale invisibile agli occhi”. [cit. Il Piccolo Principe]

          Commenta


          • #6
            Grazie GioRyuKen72

            molto gentile

            volevo chiederti 2 cose sullo script

            nasce per l'ambata ma vedo che nel resoconto conteggia i casi dall'ambo, per verificare quante ambate hanno dato esito dove modifico?
            e poi...siccome non sono soddisfatta degli esiti se volessi utilizzare la distanza che ha trovato mi basta inseire un valore x=distanza?
            non che devo rimettere questa parte?


            For X = 1 To 45

            If(DZ12 = X And DZ23 = X And DZ34 =(X * 2))_ Xor(DZ12 = X And DZ34 = X
            And DZ23 =(X * 2))_ Xor(DZ12 = X And DZ34 = X And DZ14 =(X * 2))_ Xor(DZ12 = X
            And DZ14 = X And DZ34 =(X * 2))_ Xor(DZ23 = X And DZ34 = X And DZ12 =(X * 2))_ Xor(DZ23 = X And DZ34 = X And DZ14 =(X * 2))_ Xor(DZ23 = X And DZ14 = X And DZ34 =(X * 2))_ Xor(DZ12 = X And DZ23 = X And DZ34 = X)_ Xor(DZ23 = X And DZ34 = X And DZ14 = X) Then If DZ12 =(X * 2) X)

            troppo per me ..ho capito che verifica le distanze fra le coppie di estratti ma niente pi.. oppure mi basta mettere una voce tipo x= distanza(n1,n2) per esempio?

            grazie! quando puoi/vuoi ovviamente...
            Ultima modifica di lla; 17-05-2019, 00:50.

            Commenta


            • #7
              Ciao a Tutti.

              Lia quello che hai chiesto nel post 4 in comune col mio script ha poco e niente, infatti GioRyuKen72 l'ha completamente saltata la parte di -For X = 1 To 45 - io l'avevo fatto in quel modo, perch mi si chiedeva tutti e 4 le distanze uguali che ci sono in 4 numeri qualsiasi ed in pi trovarne un altro che si incastri in qualsiasi parte rispettando sempre la stessa distanza, magari si pu fare in qualche modo completamente diverso e molto pi semplice, non lo so.


              In questo script alla terza domanda puoi decidere la distanza

              codice:
              Option Explicit
              Sub Main
                 Dim FIn,Ini,A,B,C,D,Clp,Es
                 Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2
                 Dim DAB,DCD,Sp,Dist
                 Dim Salvo50,Caso,Casi
                 Dim Ruo(2),Po1(5),M(4),Num(4)
                 Sp = " "
                 FIn = EstrazioneFin
                 Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9600))
                 Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,9))
                 Dist = CInt(InputBox(" Quale distanza cercare?",Salvo50,9))
                 Call ScegliRange(Ini,FIn,Ini,FIn)
                 Scrivi Space(12) & " AMBI STESSA DISTANZA - CHIESTO DA LIA - SCRIPT SALVO50",1,,4,,3,,1
                 Po1(2) = 1
                 Po1(3) = 1
                 For Es = Ini To FIn
                    Messaggio Es
                    AvanzamentoElab Ini,FIn,Es
                    Caso = 0
                    For R1 = 1 To 10
                       For P1 = 1 To 4
                          For P2 = P1 + 1 To 5
                             A = Estratto(Es,R1,P1)
                             B = Estratto(Es,R1,P2)
                             For R2 = R1 + 1 To 12
                                If R2 = 11 Then R2 = 12
                                For P3 = 1 To 4
                                   For P4 = P3 + 1 To 5
                                      C = Estratto(Es,R2,P3)
                                      D = Estratto(Es,R2,P4)
                                      'A---B
                                      '|   |
                                      'C---D
                                      If A <> C And A <> D And B <> C And B <> D Then
                                         DAB = Distanza(A,B) : DCD = Distanza(C,D)
                                         If DAB = DCD And DAB = Dist Then
                                            M(1) = A : M(2) = B : M(3) = C : M(4) = D
                                            OrdinaMatrice M,1
                                            Num(1) = Vert(M(1)) : Num(2) = M(2) : Num(3) = M(3) : Num(4) = M(4)
                                            Caso = Caso + 1
                                            Casi = Casi + 1
                                            Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                            Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                            Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                            For P5 = 1 To 5
                                               E1 = Estratto(Es,R1,P5)
                                               If E1 = A Or E1 = B Then
                                                  ColoreTesto 2
                                               Else
                                                  ColoreTesto 0
                                               End If
                                               Scrivi Format2(E1) & " ",1,0
                                               ColoreTesto 0
                                            Next
                                            Scrivi
                                            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                            Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                            For P6 = 1 To 5
                                               E2 = Estratto(Es,R2,P6)
                                               If E2 = C Or E2 = D Then
                                                  ColoreTesto 2
                                               Else
                                                  ColoreTesto 0
                                               End If
                                               Scrivi Format2(E2) & " ",1,0
                                               ColoreTesto 0
                                            Next
                                            Scrivi
                                            Scrivi
                                            Scrivi Space(7) & "Estratti " & Space(4) & "Dist. Orizz. " & Space(5) & "Estr. in Ordine Crescente",1
                                            Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(11) & Format2(DAB),1,0
                                            Scrivi Space(19) & Format2(M(1)) & Sp & Format2(M(2)) & Sp & Format2(M(3)) & Sp & Format2(M(4)),1,,,2
                                            Scrivi Space(8) & Format2(C) & " " & Format2(D) & Space(11) & Format2(DCD),1
                                            Ruo(1) = R1
                                            Ruo(2) = R2
                                            EliminaRipetuti Num
                                            ImpostaGiocata 1,Num,Ruo,Po1,Clp
                                            Gioca Es
                                         End If
                                      End If
                                   Next
                                Next
                             Next
                          Next
                       Next
                    Next
                    If ScriptInterrotto Then Exit Sub
                 Next
                 ScriviResoconto
              End Sub
              Ultima modifica di salvo50; 17-05-2019, 08:35.
              Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

              (B. Castiglione, - Il cortegiano)

              Commenta


              • #8
                buongiorno a tutti

                grazie Salvo50 per questa ulteriore variante

                chiedevo in sostanza la possibilit di vedere su un unico script le uscite dei numeri nel caso di coppie isotope e non, era per verifica/controllo, ma mi arrangio ragazzi ..ci mancherebbe .

                ti posso chiedere la gentilezza di spiegarmi qui :
                If DAB = DCD And DAB = Dist Then M(1) = A : M(2) = B : M(3) = C : M(4) = D OrdinaMatrice M,1 Num(1) = Vert(M(1)) : Num(2) = M(2) : Num(3) = M(3) : Num(4) = M(4) cos' m?

                Commenta


                • #9
                  codice:
                  'A e B ________sono gli estratti della prima ruota
                  'C e D ________sono gli estratti della seconda ruota
                  
                  
                  'DAB = Distanza(A,B) : DCD = Distanza(C,D) sono le distanze ciclometriche
                  'tra A e B  e  tra C e D
                  '
                  
                  'quindi con
                  
                  'If DAB = DCD And DAB = Dist Then ' controllo le distanze tra gli estratti
                  'della prima ruota e della seconda ruota siano uguali e contemporaneamente
                  'con DAB = Dist, controllo
                  
                  'che la distanza trovata sia uguale alla distanza impostata tramite InputBox, se ci
                  'sono queste condizioni lo script prosegue con la riga di programma successiva
                  'altrimenti salta tutte le righe che ci sono fino al suo END IF
                  
                  
                  'Quindi se ci sono le condizioni prosegue con la riga successiva,
                  
                  
                  
                  'M(1) = A : M(2) = B : M(3) = C : M(4) = D ________ metto i 4 estratti in una variabile
                  'con indice (credo si chiami cos,forse)
                  ' riga successiva
                  
                  OrdinaMatrice M,1 'Questa funzione mette in ordine i numeri dentro la variabile M
                  ' in ordine crescente se dopo la M metti 1 ed in ordine decrescente se metti -1
                  'quindi dopo questa operazione s che M(1)  l'estratto pi piccolo e quindi come avevi
                  'chiesto nei numeri da cercare ho messo il vertibile, pi gli altri estratti
                  
                  
                  'Num(1) = Vert(M(1)) : Num(2) = M(2) : Num(3) = M(3) : Num(4) = M(4)


                  Ultima modifica di salvo50; 17-05-2019, 13:17.
                  Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                  (B. Castiglione, - Il cortegiano)

                  Commenta


                  • #10
                    Ciao Ila, se vuoi vedere solo le ambate nello script di Salvo50, aggiungi questa riga sopra po1(2):
                    po1(1) = 2

                    e aggiungi il numero 1 preceduto dalla virgola alla fine di questa:
                    ImpostaGiocata 1,Num,Ruo,Po1,Clp,1

                    Ciao
                    Gio.
                    “Ecco il mio segreto. molto semplice: non si vede bene che col cuore. L’essenziale invisibile agli occhi”. [cit. Il Piccolo Principe]

                    Commenta


                    • #11
                      grazie immensamente ragazzi ora ci butto un occhio

                      nel frattempo ho provato per conto mio a fare una piccola modifica per mettere in gioco anche la distanza che trova..e mi riuscito
                      lo so una cosa banale ma x me ..che parto da 0..

                      grazie ancora

                      Commenta


                      • #12
                        Originariamente inviato da lla Visualizza il messaggio
                        grazie immensamente ragazzi ora ci butto un occhio

                        nel frattempo ho provato per conto mio a fare una piccola modifica per mettere in gioco anche la distanza che trova..e mi riuscito
                        lo so una cosa banale ma x me ..che parto da 0..

                        grazie ancora
                        ..ti capisco benissimo, anche io sono felicissimo quando mi riescono le modifiche che faccio..
                        “Ecco il mio segreto. molto semplice: non si vede bene che col cuore. L’essenziale invisibile agli occhi”. [cit. Il Piccolo Principe]

                        Commenta

                        Unconfigured Ad Widget

                        Comprimi

                        Ultima estrazione del lotto

                        Comprimi

                        Estrazione del lotto
                        sabato 18 maggio 2019
                        Bari
                        30
                        25
                        06
                        27
                        24
                        Cagliari
                        84
                        52
                        29
                        14
                        38
                        Firenze
                        28
                        84
                        72
                        14
                        74
                        Genova
                        62
                        28
                        55
                        56
                        06
                        Milano
                        52
                        28
                        61
                        72
                        16
                        Napoli
                        65
                        35
                        24
                        22
                        79
                        Palermo
                        16
                        45
                        28
                        44
                        57
                        Roma
                        56
                        01
                        22
                        08
                        42
                        Torino
                        23
                        88
                        54
                        62
                        49
                        Venezia
                        11
                        15
                        75
                        02
                        49
                        Nazionale
                        90
                        15
                        09
                        38
                        43
                        Sto operando...
                        X