Kyseessä on siis mahdollisimman vähiin koodiriveihin puristettu lottonumerogeneraattori CoolBasic-ohjelmointikielellä. Tein koodin seuraavan tehtävän pohjalta:
"Tee ohjelma, joka arpoo 7-numeroisia lottorivejä. Lottonumerot ovat väliltä 1-49, eikä samaa numeroa voi tulla toiseen kertaan. Rivin generointi tapahtuu aina kun painetaan ENTERiä."
Ajattelin pistää tänne CoolBasic-esimerkin, kun sellaista ei ennen ollut. Koodissa kikkaillaan merkkijonoilla sun muilla härpäkkeillä, jotta rivejä tulisi mahdollisimman vähän. Näin ollen se ei millään muotoa edusta hyviä ohjelmointitapoja.
Tämän olisi saanut pienempiinkin riveihin käyttäen bugeja tai :-merkkiä.
Repeat If InStr(a$,Str(Timer() Mod 49 + 1)+" ")=0 And CountWords(a)<7 Then a=a+Str(Timer() Mod 49 + 1)+" " Else Text 0,0,a If CountWords(a) = 7 And KeyHit(28) Then a = "" Else DrawScreen Until EscapeKey()
Aihe on jo aika vanha, joten et voi enää vastata siihen.