Spiros252 έγραψε: ↑21 Ιούλ 2018, 11:30
Εμένα σε 144 ms το βγάζει ο server.
Μαζί με την εκτύπωση, ή απλά αποδίδεις την τιμή σε μεταβλητή;
Μπορείς να βάλεις εδώ τον κώδικα;
Παρεμπιπτόντως, βρήκα τρόπο να παρακάμψω το πρόβλημα της γλώσσας που έλεγα για τα strings κλπ...
Κώδικας: Επιλογή όλων
Dim t(624073), v, aa$
For r = 1 To 624072
If r Mod 947 = 0 Then
t(r) = " μπαζζ"
ElseIf r Mod 659 = 0 Then
t(r) = " φιζζ"
End If
Next
t(624073) = " φιζζμπαζ": i = 0
For r = 1 To 10 ^ 7
i = i + 1: If i > 624073 Then i = 1
If t(i) <> "" Then
v = r & t(i)
Else: v = r
End If
'Print v
Next
Χωρίς την μετατροπή τού αποτελέσματος σε string (μόνο οι υπολογισμοί δηλαδή + την απόδοση του numeric τμήματος) μού βγαίνει από 310 έως 350ms. Με το νέο condition που πρόσθεσα (If t(i) <> "" Then v = r & t(i) Else v = r) ανεβαίνει κάπου στα 600-650, αλλά πάλι είναι σημαντικά πιο γρήγορο απ' το παλιό μου που ήταν κάπου στα 3000.