Per Joe o altri esperti

Cinzia27 · 10 Dicembre 2023

Chiedo cortesemente a Joe o altri esperti, se possono risolvere questo problema.
Se voglio comporre ambi da questi 5 numeri, così va bene.

Sub main()
Dim n(5),nn(2)
n(1)=1
n(2)=2
n(3)=3
n(4)=4
n(5)=5
For i1=1 To 4
For j1=i1+1 To 5
nn(1)=n(i1)
nn(2)=n(j1)
Scrivi StringaNumeri(nn)
Next
Next

End Sub

------------------------------------------------------------------------

Ma se volessi fare così, non va bene.

Sub main()

Dim n(3),nn(2)
For i=1 To 3
For j=i+1 To 4
For k=j+1 To 5
n(1)=i
n(2)=j
n(3)=k

Next
Next
Next

For i1=1 To 2
For j1=i1+1 To 3
nn(1)=n(i1)
nn(2)=n(j1)
Scrivi StringaNumeri(nn)
Next
Next

End Sub

Oscar · 10 Dicembre 2023

Se devi creare solo la matrice

Option Explicit
Sub Main
Dim A,B,Numeri
Numeri=5
For A = 1 To Numeri
For B = A + 1 To Numeri
Scrivi A & " " & B
Next
Next
End Sub

Oppure

Option Explicit
Sub Main()
Dim a,b,n
For a = 1 To 5
For b= a+1 To 5
Scrivi a & "-" & b
n=n+1
Next
Next
Scrivi "" & vbCrLf & "Colonne sviluppate " & n
End Sub

Mike58 · 10 Dicembre 2023

Oppure Mettere i Numeri in array e ciclarli .

Codice:

Sub Main
   Dim A,B,Ambo
   k = 0
   A = Array(0,1,2,3,4)
   B = Array(0,1,2,3,4,5)
   For Aa = 1 To UBound(A)
      For Bb = Aa + 1 To UBound(B)
         Ambo = Array(0,A(Aa),B(Bb))
         k = k + 1
         Scrivi FormatSpace(k,2,1) & ") " & StringaNumeri(Ambo)
      Next
   Next
End Sub

Cinzia27 · 10 Dicembre 2023

Grazie, Oscar e Mike.
Ma non è la soluzione che cerco.
Io avrei necessità di ricavare da una lunghetta di tot elementi una lunghetta con meno elementi.
Vi posto lo script, che prende, come stabilito, un solo elemento per array.
Se lo fate girare avrete lunghette di 12 elementi.
Io vorrei che fosse portato a 10, 9 o meno, scandagliando ovviamente tutta la lunghetta.
Grazie per ciò che potete fare.

Codice:

Option Explicit
Sub Main
Dim n(12),st,cc,w,num1,num2,num3,num4,num5,num6,num7,num8,num9,num10,num11,num12
Dim y1,y2,y3,y4,y5,y6,y7,y8,y9,y10,y11,y12,at,fr
Dim a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12
Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,ru(11)
r1 = 1:r2 = 2:r3 = 3:r4 = 4:r5 = 5:r6 = 6:r7 = 7:r8 = 8:r9 = 9:r10 = 10:r11 = 12
ru(1) = r1:ru(2) = r2:ru(3) = r3:ru(4) = r4:ru(5) = r5:ru(6) = r6:ru(7) = r7:ru(8) = r8:ru(9) = r9:ru(10) = r10:ru(11) = r11
w = 2


num1 = Array(38)
num2 = Array(74)
num3 = Array(55,77,79)
num4 = Array(65,87,89)
num5 = Array(01,03,21)
num6 = Array(05,25,27,45)
num7 = Array(11,33)
num8 = Array(15,35)
num9 = Array(61,81)
num10 = Array(51,71)
num11 = Array(29,47,49)
num12 = Array(19,39)

'y1 = UBound(num1)
'y2 = UBound(num2)
y3 = UBound(num3)
y4 = UBound(num4)
y5 = UBound(num5)
y6 = UBound(num6)
y7 = UBound(num7)
y8 = UBound(num8)
y9 = UBound(num9)
y10 = UBound(num10)
y11 = UBound(num11)
y12 = UBound(num12)

'For a1 = 0 To y1
'If ScriptInterrotto Then Exit For
'For a2 = 0 To y2
'If ScriptInterrotto Then Exit For
For a3 = 0 To y3
If ScriptInterrotto Then Exit For
For a4 = 0 To y4
If ScriptInterrotto Then Exit For
For a5 = 0 To y5
If ScriptInterrotto Then Exit For
For a6 = 0 To y6
If ScriptInterrotto Then Exit For
For a7 = 0 To y7
If ScriptInterrotto Then Exit For
For a8 = 0 To y8
If ScriptInterrotto Then Exit For
For a9 = 0 To y9
If ScriptInterrotto Then Exit For
For a10 = 0 To y10
If ScriptInterrotto Then Exit For
For a11 = 0 To y11
If ScriptInterrotto Then Exit For
For a12 = 0 To y12
If ScriptInterrotto Then Exit For

n(1) = num1(a1)
n(2) = num2(a2)
n(3) = num3(a3)
n(4) = num4(a4)
n(5) = num5(a5)
n(6) = num6(a6)
n(7) = num7(a7)
n(8) = num8(a8)
n(9) = num9(a9)
n(10) = num10(a10)
n(11) = num11(a11)
n(12) = num12(a12)
at = SerieRitardoTurbo(EstrazioneFin - 10,EstrazioneFin,n,ru,w)'7440
If at <4 Then
st = SerieStoricoTurbo(8117,EstrazioneFin,n,ru,w)
If st <4 Then
fr = SerieFreqTurbo(8117,EstrazioneFin,n,ru,w)


cc = cc + 1
Messaggio FormatSpace(cc,5,1) & " " & StringaNumeri(n) & " st " & FormatSpace(st,3,1) & " at " & FormatSpace(at,3,1) & " fr " & FormatSpace(fr,3,1)

'Scrivi FormatSpace(cc,5,1) & " " & StringaNumeri(n) & " st " & FormatSpace(st,3,1)
Scrivi "aa(" &(cc) & ") = Array(0," & StringaNumeri(n) & ") 'st " & st & " at " & FormatSpace(at,3,1) & "  fr " & FormatSpace(fr,3,1)
End If
End If

Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

Oscar · 10 Dicembre 2023

La condizione for non funziona così come la stai spiegando tu (oppure ho capito male io)

Se hai 5 colonne sono 5 colonne dall'inizio alla fine , non puoi mettere 2 numeri nella prima riga e 5 nella seconda oppure gli Array devono avere tutti la stessa quantità di numeri

Codice:

Option Explicit
Sub Main
Dim A,B,C
 
C = Array("1","12","23","41","50")
 

For A = 0 To UBound(C)
For B = A + 1 To UBound(C)

Scrivi C(A) & " " & C(B)

Next
Next

End Sub

joe · 10 Dicembre 2023

Ciao Cinzia, non so se ho interpretato correttamente la tua richiesta ed azzardo questa risposta.

Il "+1" serve per avere lo sviluppo combinatorio senza ripetizioni.

Negli ambi è per esempio una ottimizzazione del doppio ciclo nidificato per svilupparli.

Esiste più o meno per la ragione che provo a descrivere così.

Se ho gia sviluppato tutti gli ambi a capogioco ENNE ...

Se ricomincio da ENNE "+1" ... non avrò doppioni.

Se invece devo sviluppare (moltiplicare) le combinazioni come ad esempio

(3 numeri) X (2 Numeri) X 5 (Numeri) dovrò scrivere qualcosa di simile:

Codice:

Sub Main
   For A = 1 To 3
      For B = 1 To 2
         For C = 1 To 5
            K = k + 1
         Next
      Next
   Next
   Scrivi K
End Sub

In questo modo ci sarannto tutte e 30 le terne.

Naturalmente a,b,c dovranno essere gli indici degli elementi in array.

Senza dimenticare che ci (ovvero mi) è più semplice appunto considerare da 1 a 3 piuttosto che da ZERO a 2.

Dunque preferisco partire dal primo elemento dell'Array e non dallo Zeresimo inteso come primo.

Così pure ubound restituisce l'ultimo valore ... senza "-1"

Cinzia27 · 10 Dicembre 2023

Grazie a tutti voi.
Scusate, ma non ho capito gli esempi.
Potete guardare cosa fa il mio script? Vorrei semplicemente che scorresse i 12 numeri
n(1) = num1(a1)
n(2) = num2(a2)
n(3) = num3(a3)
n(4) = num4(a4)
n(5) = num5(a5)
n(6) = num6(a6)
n(7) = num7(a7)
n(8) = num8(a8)
n(9) = num9(a9)
n(10) = num10(a10)
n(11) = num11(a11)
n(12) = num12(a12)

e mi restituisse anziché dodicine ad esempio decine.
Per Oscar : ho necessità di inserire quantità diverse negli array

Grazie per il vostro aiuto.

Cinzia27 · 10 Dicembre 2023

Io ho ovviato in questo modo, spero non si creino formazioni ripetute.
Se si può fare di meglio...

Codice:

Option Explicit
Sub Main
Dim n(12),st,cc,w,num1,num2,num3,num4,num5,num6,num7,num8,num9,num10,num11,num12
Dim y1,y2,y3,y4,y5,y6,y7,y8,y9,y10,y11,y12,at,fr
Dim a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12
Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,ru(11)
Dim q,q1,q2,q3,q4,q5,q6,q7,q8,q9,nn(10)

r1 = 1:r2 = 2:r3 = 3:r4 = 4:r5 = 5:r6 = 6:r7 = 7:r8 = 8:r9 = 9:r10 = 10:r11 = 12
ru(1) = r1:ru(2) = r2:ru(3) = r3:ru(4) = r4:ru(5) = r5:ru(6) = r6:ru(7) = r7:ru(8) = r8:ru(9) = r9:ru(10) = r10:ru(11) = r11

w = 2


num1 = Array(38)
num2 = Array(74)
num3 = Array(55,77,79)
num4 = Array(65,87,89)
num5 = Array(01,03,21)
num6 = Array(05,25,27,45)
num7 = Array(11,33)
num8 = Array(15,35)
num9 = Array(61,81)
num10 = Array(51,71)
num11 = Array(29,47,49)
num12 = Array(19,39)

'y1 = UBound(num1)
'y2 = UBound(num2)
y3 = UBound(num3)
y4 = UBound(num4)
y5 = UBound(num5)
y6 = UBound(num6)
y7 = UBound(num7)
y8 = UBound(num8)
y9 = UBound(num9)
y10 = UBound(num10)
y11 = UBound(num11)
y12 = UBound(num12)

'For a1 = 0 To y1
'If ScriptInterrotto Then Exit For
'For a2 = 0 To y2
'If ScriptInterrotto Then Exit For
For a3 = 0 To y3
If ScriptInterrotto Then Exit For
For a4 = 0 To y4
If ScriptInterrotto Then Exit For
For a5 = 0 To y5
If ScriptInterrotto Then Exit For
For a6 = 0 To y6
If ScriptInterrotto Then Exit For
For a7 = 0 To y7
If ScriptInterrotto Then Exit For
For a8 = 0 To y8
If ScriptInterrotto Then Exit For
For a9 = 0 To y9
If ScriptInterrotto Then Exit For
For a10 = 0 To y10
If ScriptInterrotto Then Exit For
For a11 = 0 To y11
If ScriptInterrotto Then Exit For
For a12 = 0 To y12
If ScriptInterrotto Then Exit For

n(1) = num1(a1)
n(2) = num2(a2)
n(3) = num3(a3)
n(4) = num4(a4)
n(5) = num5(a5)
n(6) = num6(a6)
n(7) = num7(a7)
n(8) = num8(a8)
n(9) = num9(a9)
n(10) = num10(a10)
n(11) = num11(a11)
n(12) = num12(a12)

For q=1 To 3
For q1=q+1 To 4
For q2=q1+1 To 5
If ScriptInterrotto Then Exit For
For q3=q2+1 To 6
For q4=q3+1 To 7
For q5=q4+1 To 8
If ScriptInterrotto Then Exit For
For q6=q5+1 To 9
For q7=q6+1 To 10
For q8=q7+1 To 11
For q9=q8+1 To 12

nn(1) = n(q)
nn(2) = n(q1)
nn(3) = n(q2)
nn(4) = n(q3)
nn(5) = n(q4)
nn(6) = n(q5)
nn(7) = n(q6)
nn(8) = n(q7)
nn(9) = n(q8)
nn(10) = n(q9)

at = SerieRitardoTurbo(EstrazioneFin - 10,EstrazioneFin,nn,ru,w)'7440
If at <5 Then
st = SerieStoricoTurbo(8117,EstrazioneFin,nn,ru,w)
If st <5 Then
fr = SerieFreqTurbo(8117,EstrazioneFin,nn,ru,w)


cc = cc + 1
Messaggio FormatSpace(cc,5,1) & " " & StringaNumeri(n) & " st " & FormatSpace(st,3,1) & " at " & FormatSpace(at,3,1) & " fr " & FormatSpace(fr,3,1)

'Scrivi FormatSpace(cc,5,1) & " " & StringaNumeri(n) & " st " & FormatSpace(st,3,1)
Scrivi "aa(" &(cc) & ") = Array(0," & StringaNumeri(n) & ") 'st " & st & " at " & FormatSpace(at,3,1) & "  fr " & FormatSpace(fr,3,1)
End If
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

Oscar · 11 Dicembre 2023

Hai disattivato le prime 2 Array , poi alla fine le hai aggiunte nella For

Ma non so se ho capito

Codice:

Option Explicit
Sub Main
Dim n(12),st,cc,w,num1,num2,num3,num4,num5,num6,num7,num8,num9,num10,num11,num12
Dim y1,y2,y3,y4,y5,y6,y7,y8,y9,y10,y11,y12,at,fr
Dim a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12
Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,ru(11)
Dim q,q1,q2,q3,q4,q5,q6,q7,q8,q9,nn(10)

r1 = 1:r2 = 2:r3 = 3:r4 = 4:r5 = 5:r6 = 6:r7 = 7:r8 = 8:r9 = 9:r10 = 10:r11 = 12
ru(1) = r1:ru(2) = r2:ru(3) = r3:ru(4) = r4:ru(5) = r5:ru(6) = r6:ru(7) = r7:ru(8) = r8:ru(9) = r9:ru(10) = r10:ru(11) = r11

w = 2


num1 = Array(38)
num2 = Array(74)
num3 = Array(55,77,79)
num4 = Array(65,87,89)
num5 = Array(01,03,21)
num6 = Array(05,25,27,45)
num7 = Array(11,33)
num8 = Array(15,35)
num9 = Array(61,81)
num10 = Array(51,71)
num11 = Array(29,47,49)
num12 = Array(19,39)

rem piu variabili usi piu rallenta l'esecuzione di calcolo

'y1 = UBound(num1)
'y2 = UBound(num2)
'y3 = UBound(num3)
 'y4 = UBound(num4)
 'y5 = UBound(num5)
 'y6 = UBound(num6)
 'y7 = UBound(num7)
 'y8 = UBound(num8)
'y9 = UBound(num9)
'y10 = UBound(num10)
'y11 = UBound(num11)
'y12 = UBound(num12)

'For a1 = 0 To y1
'If ScriptInterrotto Then Exit For
'For a2 = 0 To y2
'If ScriptInterrotto Then Exit For


For a3 = 0 To UBound(num3)
If ScriptInterrotto Then Exit For
For a4 = 0 To UBound(num4)
If ScriptInterrotto Then Exit For
For a5 = 0 To UBound(num5)
If ScriptInterrotto Then Exit For
For a6 = 0 To UBound(num6)
If ScriptInterrotto Then Exit For
For a7 = 0 To UBound(num7)
If ScriptInterrotto Then Exit For
For a8 = 0 To UBound(num8)
If ScriptInterrotto Then Exit For
For a9 = 0 To UBound(num9)
If ScriptInterrotto Then Exit For
For a10 = 0 To UBound(num10)
If ScriptInterrotto Then Exit For
For a11 = 0 To UBound(num11)
If ScriptInterrotto Then Exit For
For a12 = 0 To UBound(num12)
If ScriptInterrotto Then Exit For

'n(1) = num1(a1)
'n(2) = num2(a2)
n(3) = num3(a3)
n(4) = num4(a4)
n(5) = num5(a5)
n(6) = num6(a6)
n(7) = num7(a7)
n(8) = num8(a8)
n(9) = num9(a9)
n(10) = num10(a10)
n(11) = num11(a11)
n(12) = num12(a12)




For q = 1 To 3
For q1 = q + 1 To 4
For q2 = q1 + 1 To 5
If ScriptInterrotto Then Exit For
For q3 = q2 + 1 To 6
For q4 = q3 + 1 To 7
For q5 = q4 + 1 To 8
If ScriptInterrotto Then Exit For
For q6 = q5 + 1 To 9
For q7 = q6 + 1 To 10
For q8 = q7 + 1 To 11
For q9 = q8 + 1 To 12

'nn(1) = n(q)
'nn(2) = n(q1)
nn(3) = n(q2)
nn(4) = n(q3)
nn(5) = n(q4)
nn(6) = n(q5)
nn(7) = n(q6)
nn(8) = n(q7)
nn(9) = n(q8)
nn(10) = n(q9)

at = SerieRitardoTurbo(EstrazioneFin - 10,EstrazioneFin,nn,ru,w)'7440
If at < 3 Then
st = SerieStoricoTurbo(8117,EstrazioneFin,nn,ru,w)
If st < 10 Then
fr = SerieFreqTurbo(8117,EstrazioneFin,nn,ru,w)


cc = cc + 1
Messaggio FormatSpace(cc,5,1) & " " & StringaNumeri(n) & " st " & FormatSpace(st,3,1) & " at " & FormatSpace(at,3,1) & " fr " & FormatSpace(fr,3,1)

'Scrivi FormatSpace(cc,5,1) & " " & StringaNumeri(n) & " st " & FormatSpace(st,3,1)
Scrivi "aa(" &(cc) & ") = Array(0," & StringaNumeri(n) & ") 'st " & st & " at " & FormatSpace(at,3,1) & "  fr " & FormatSpace(fr,3,1)
End If
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

Cinzia27 · 11 Dicembre 2023

Ciao, Oscar. 83.74 non sono da togliere, compongono la dodicina che andrebbe scomposta in decina.

Se fai girare lo script del post n. 4 e prendi ad esempio la prima dodicina che viene fuori
aa(1) = Array(0,38.74.55.65.1.5.11.15.81.51.49.19) 'st 3 at 0 fr 5327
io vorrei che fosse esaminata non la dodicina ma le 66 decine di cui è composta.

joe · 11 Dicembre 2023

Ciao Cinzia.

Sinceramente ... non so se ne sono capace.

Probabilmente si ma ho sempre evitato (di proposito) cose simili.

Le istruzioni alle quali dovresti guardare sono quelle sullo sviluppo delle combinazioni.

Perchè se è gia fatto Luigi, ci si risparmia il tempo e soprattutto la possibilità di fare peggio.

Per esempio forse potrebbe servire questo:

Codice:

Sub Main
   Dim K,J 
   Dim Colonne
   Dim numeri(12)
   Dim classe
   Dim sColonna
   classe = 10
   For K = 1 To 12
      numeri(K) = K
   Next
   Colonne = SviluppoIntegrale(numeri,classe)
   For K = 1 To UBound(Colonne)
      sColonna = ""
      For J = 1 To classe
         sColonna = sColonna & Format2(Colonne(K,J)) & " "
      Next
      Call Scrivi(sColonna)
   Next
End Sub

Cinzia27 · 11 Dicembre 2023

Non fa nulla Joe, ringrazio te, Oscar e Mike.

joe · 11 Dicembre 2023

Ok,

Ma hai provato ad applicare lo script che ti ho proposto per ridurre la tue lunghette ?

Cinzia27 · 11 Dicembre 2023

Non so come implementarlo.

Nikor · 11 Dicembre 2023

Buona sera Cinzia, scusa l'intrusione ma per lo script non posso esserti utile:
( più di 5 anni fa mi ero intromesso per dare una risposta ad un richiedente per una modifica, ma il richiedente non si fece più sentire ed al suo posto dopo qualche giorno intervennero alcuni sapientoni che come pappagalli apportarono le loro modifiche dimostrando di saperne una pagina più del libro con una piccola differenza che il mio script girava in 20 secondi mentre le altre modifiche impiegavano dai 20 ai 30 minuti ma nessuno se ne accorse…)!
Mi ripromisi allora di non intervenire più su script inerenti Spazio, ed ancora oggi a distanza di tempo rimango fermo su quelle posizioni.

Veniamo alla tua richiesta, anzi meglio scrivere come la vedo io nella mia ottica e partiamo da questo:

Cinzia27 ha scritto:
Se fai girare lo script del post n. 4 e prendi ad esempio la prima dodicina che viene fuori
aa(1) = Array(0,38.74.55.65.1.5.11.15.81.51.49.19) 'st 3 at 0 fr 5327
io vorrei che fosse esaminata non la dodicina ma le 66 decine di cui è composta.

Se scomponi la 12dicina in Decine troverai ben [ 13 formazioni a ( St = 5 ) ]
Allora mi chiedo ( visto che hai messo in array 12 gruppi dove l’algoritmo dovrà iterare un solo numero per array ) perché non partire dall’ ABS di 28 numeri?
Se fino qui ci siamo , proseguo:
Con il tuo condizionamento ( un numero per array ) sei arrivata ad una moltitudine di 12cine a ( St = 3 ) e mi chiedo io:
A ( St = 3 ) ci saranno anche 11dicine? Se ce ne fossero sarà più semplice poi diminuire le sequele alle sole Decine ed anche in lunghezza minore…
In effetti ho provato una veloce routine e di 11dicine ( sui tuoi 28 numeri dell’array ) che ne sono parecchie.
Nel caso servissero chiedi che ne posto alcuna.
Per le Decine non ci ho guardato ma credo che lo storico salga a valore ( 4 ) magari chissà che non ce ne siano qualcuna che mantiene il valore ( 3 ) ma ne dubito…
Buona serata, se ritieni che il mio punto di vista non sia di tuo interesse cancello.
Nikor

Cinzia27 · 11 Dicembre 2023

Per Joe, grazie ma seppur pregevole è un risultato diverso da quello che vorrei ricavare.
Per Nikor, i tuoi commenti e consigli sono sempre graditi.
Io però i numeri li vorrei divisi.

Nikor · 11 Dicembre 2023

Scusa se non comprendo il sigificato di divisi, forse intendi che scendendo alle Decine vorresti solo un numero presente in una sola array? e non le decine integrali che si formano con i tuoi 28 numeri?
Se è così si può fare ed è anche più veloce .
Fammi qualche esempio
Ciao

Cinzia27 · 11 Dicembre 2023

Nikor ha scritto:
intendi che scendendo alle Decine vorresti solo un numero presente in una sola array?

Proprio così.

Cinzia27 ha scritto:
Ciao, Oscar. 83.74 non sono da togliere, compongono la dodicina che andrebbe scomposta in decina.

Se fai girare lo script del post n. 4 e prendi ad esempio la prima dodicina che viene fuori
aa(1) = Array(0,38.74.55.65.1.5.11.15.81.51.49.19) 'st 3 at 0 fr 5327
io vorrei che fosse esaminata non la dodicina ma le 66 decine di cui è composta.

L'esempio è l'array che ti riporto in neretto.
Non dev'esserci nella formazione finale ad es. 65,89 oppure 11,33, ecc.
I numeri solitari (38) e (74) non sono fissi, ruotano anch'essi.

num1 = Array(38)
num2 = Array(74)
num3 = Array(55,77,79)
num4 = Array(65,87,89)
num5 = Array(01,03,21)
num6 = Array(05,25,27,45)
num7 = Array(11,33)
num8 = Array(15,35)
num9 = Array(61,81)
num10 = Array(51,71)
num11 = Array(29,47,49)
num12 = Array(19,39)

Nikor · 11 Dicembre 2023

Bene Cinzia, ora è tutto chiaro come avevo ipotizzato:

Nikor ha scritto:
Scusa se non comprendo il sigificato di divisi, forse intendi che scendendo alle Decine vorresti solo un numero presente in una sola array?

Bene, porta pazienza fino a domani perchè questa sera ho ancora i fumi del ponte dell'Immacolata e sono cotto e domani mattina la sveglia suona di buonora.
Come mi libero, domani modifico il codice è ti posto le decine con lo storico minore...
Notte
Nikor

Cinzia27 · 11 Dicembre 2023

Grazie, Nikor.
Buona notte.

Per Joe o altri esperti

Premium Member

Advanced Member >GOLD<

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >GOLD<

Advanced Member >PLATINUM PLUS<

Premium Member

Premium Member

Advanced Member >GOLD<

Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

Premium Member

Premium Member

Premium Member

Premium Member

Premium Member

Premium Member