Θα προσπαθήσω να δώσω μια λύση με βάση αυτό που καταλαβαίνω εγώ.
!Δημιουργώ έναν πίνακα ΚΑΘ[2300,49] όπου η κάθε στήλη του αντιστοιχεί και σε ένα απο τα νούμερα και η κάθε γραμμή σε κάθε
!μια κλήρωση. Στην Αρχή τον μηδενίζω.
Για ι απο 1 μεχρι 2300
Για ξ απο 1 μεχρι 49
ΚΑΘ[ι,ξ]<--0
Τέλος_Επανάληψης
Τέλος_Επανάληψης
!Σαρώνω τον πίνακα ΛΟΤΟ[2300,6] που περιέχει τους αριθμούς της κάθε κλήρωσης. κάνοντας 1 την αντίστοιχη θέση του πίνακα
!ΚΑΘ[2300,49]. Δηλαδή αν στην κλήρωση 1125 έχει κληρωθεί ο αριθμός 37, κάνω 1 το στοιχείο ΚΑΘ[1125,37]
Για ι απο 1 μεχρι 2300
Για ξ απο 1 μεχρι 6
Μ<--ΛΟΤΟ[ι,ξ]
ΚΑΘ[ι,Μ]<--1
Τέλος_Επανάληψης
Τέλος_Επανάληψης
! Χρησιμοποιώ έναν πίνακα ΠΛΚΑΘ[49] στον οποίο θα καταχωρώ το μεγαλύτερο διάστημα που έκανε ο κάθε αριθμός απο τους
!49 να εμφανιστεί. Στην αρχή τον μηδενίζω
Για ι απο 1 μεχρι 49
ΠΛΚΑΘ[ι]<--0
Τέλος_επανάληψης
!Σαρώνω τον πίνακα ΚΑΘ κατά στήλες, και μετράω συνεχόμενα μηδενικά.Μόλις βρώ 1 δηλαδή κληρώθηκε, συγκρίνω το πλήθος
!των μηδενικών που βρήκα μέχρι εκείνη την στιγμή με την αντίστοιχη θέση του πίνακα ΠΛΚΑΘ, δηλαδή άν σαρώνω την 15
!στήλη του πίνακα θα συγκρίνω με το στοιχείο ΠΛΚΑΘ[15], αν είναι μεγαλύτερο το πλήθος των μηδενικών αντικαθιστώ.
Για ι απο 1 μεχρι 49
Ζ<--0
Για ξ απο 1 μεχρι 2300
Αν ΚΑΘ[ι,ξ]=0 τοτε
Ζ<--Ζ+1
Αλλιως
Αν Ζ>ΠΛΚΑΘ[ι] τοτε
ΠΛΚΑΘ[ι]<--Ζ
Τέλος_Αν
Ζ<--0
Τέλος_Αν
Τέλος_Επανάληψης
Τέλος_Επανάληψης
! Έτσι ο πίνακας ΠΛΚΑΘ θα περιέχει το μεγαλύτερο πλήθος συνεχόμενων κληρώσεων που έκανε να εμφανιστεί ο κάθε αριθμός
! και υπολογίζοντας με τον κλασικό τρόπο τον μέγιστο εμφανίζω την θέση του.
Αυτή πιστεύω οτι είναι μια ορθή λύση.
Αλλά θεωρώ οτι θα έπρεπε στην εκφώνηση να αναφερόταν σε "πλήθος συνεχόμενων κληρώσεων που έκανε να εμφανιστεί ο κάθε αριθμός"