Se nn erro l'ultimo giorno di corso ci siamo "esercitati"... Il problema su cui i prof hanno insistio è stato:
(*ESERCIZIO 7 *)
(* Data un urna contenente 100 numeri simulare l'estrazioni di tre
numeri senza reimbussolamento. Stampare il messaggio "Complimenti hai
vinto" se i tre numeri sono uguali oppure se il primo è minore del
secondo ed il secondo è minore del terzo. "Ritenta...sarai più
fortunato" altrimenti*)
Eccoti la soluzione
urna = Table[i, {i, 1, 100}];
num = {0, 0, 0};
For[i = 1, i <= 3, i++,
pos = Random[Integer, {1, Length[urna]}];
num[[i]] = urna[[pos]];
Delete[urna, pos];
];
Print["Your lucky numbers are: ", num]
If[num[[1]] <= num[[2]] <= num[[3]],
Print["Complimenti hai vinto"],
Print["Ritenta...sarai più fortunato"]];