dnes jsme vymýšleli s Bubajzníkem. Nápad měl dobrý, jen dokumentace k MSWLogu stojí zaprd, nainstalováno FMS Logo (nástupce). Princip je jednoduchý.

• inicializace proměnných (osudí jako pole, losuje se 6 čísel z rozsahu do 49 včetně)
• jede smyčka – dokud je víc než 6 čísel, pak
• vylosuj náhodné číslo z rozsahu
• zkontroluj, zda už je v osudí (memberp)
• pokud není (ifelse), vlož ho do pole (push) a zmenši počet čísel
• smyčka se opakuje tak dlouho, dokud není v osudí 6 různých čísel
• nakonec vypiš osudí

a zde je kód:

to sportka
  make "osudi []
  make "cisel 6
  make "rozsah 49
  while [:cisel>0] [
    make "los random :rozsah
    ifelse memberp :osudi :los [
    ]
    [
      if :los > 0 [
        push "osudi :los
        make "cisel :cisel - 1
      ]
    ]
  ]
  show :osudi
end

a to same v ruby

osudi = []
while osudi.length != 6 do
  los = rand 49
  osudi << los unless osudi.include? los
end
puts osudi.inspect