Dato un gruppo numerico qualsiasi... c'è già uno script che lo scomponga...

[lotto_tom75]

Dato un gruppo numerico qualsiasi... c'è già uno script che lo possa scomporre... in tutte le "famiglie" e tipologie numeriche finora conosciute? Es. figure, cadenze, cinquine simmetriche ecc.. E se non c'è... qualcuno/a dei top scripters in ascolto... (vedi ilegend, mike58, joe ecc...) che abbia voglia di realizzarlo?

 

[claudio8]

Sfadigato.
Ciao

 

[Cinzia27]

Ciao, Lotto_tom75.
Potrebbe andare ?

Sub Main()
Dim n(10)
w=4
n(1)=10
n(2)=15
n(3)=44
n(4)=48
n(5)=58
n(6)=67
n(7)=74
n(8)=75
n(9)=85
n(10)=86
Scrivi "Figura "&w
For i=1 To 10
If Figura(n(i))=4 Then Scrivi n(i)&" ",0,0
Next
Scrivi
Scrivi
Scrivi "Cadenza "&w
For i=1 To 10
If Cadenza(n(i))=4 Then Scrivi n(i)&" ",0,0
Next
Scrivi
Scrivi
Scrivi "Decina "&w
For i=1 To 10
If Decina(n(i))=4 Then Scrivi n(i)&" ",0,0
Next
Scrivi
Scrivi
End Sub

 

[lotto_tom75]

Ciao, Lotto_tom75.
Potrebbe andare ?

Sub Main()
Dim n(10)
w=4
n(1)=10
n(2)=15
n(3)=44
n(4)=48
n(5)=58
n(6)=67
n(7)=74
n(8)=75
n(9)=85
n(10)=86
Scrivi "Figura "&w
For i=1 To 10
If Figura(n(i))=4 Then Scrivi n(i)&" ",0,0
Next
Scrivi
Scrivi
Scrivi "Cadenza "&w
For i=1 To 10
If Cadenza(n(i))=4 Then Scrivi n(i)&" ",0,0
Next
Scrivi
Scrivi
Scrivi "Decina "&w
For i=1 To 10
If Decina(n(i))=4 Then Scrivi n(i)&" ",0,0
Next
Scrivi
Scrivi
End Sub

Eccezionale Cinzia! Grazie 1000 e Buon 8 Marzo che prima mi ero dimenticato di scriverti ps: se metti il codice tra i tag parentesi quadra aperta code parentesi quadra chiusa e il tag parentesi quadra aperta barra code parentesi quadra chiusa il codice stesso diventa molto più leggibile

 

[Cinzia27]

Grazie per gli auguri

 

[Cinzia27]

Sub main()
Dim n(10)
w=4
n(1)=10
n(2)=15
n(3)=44
n(4)=48
n(5)=58
n(6)=67
n(7)=74
n(8)=75
n(9)=85
n(10)=86
Scrivi "Figura "&w
For i=1 To 10
If Figura(n(i))=4 Then Scrivi n(i)&" ",0,0
Next
Scrivi
Scrivi "Cadenza "&w
For i=1 To 10
If Cadenza(n(i))=4 Then Scrivi n(i)&" ",0,0
Next
Scrivi
Scrivi "Decina  "&w
For i=1 To 10
If Decina(n(i))=4 Then Scrivi n(i)&" ",0,0
Next
Scrivi

End Sub