' file da utilizzare come sub PROVA in PROBSPER per studiare la probabilita`
' di avere almeno un tris di mano giocando con 40 carte
DIM c(3, 10), n(10)         ' pongo c(sem,val)=1 quando esce la carta sem,val
tris = 0
FOR i = 1 TO 10
    ripeti = 1
    WHILE ripeti = 1                ' cerco una carta che non sia gia` uscita
        seme = INT(RND * 4): valore = INT(RND * 10) + 1
        IF c(seme, valore) = 0 THEN ripeti = 0
    WEND
    c(seme, valore) = 1: n(valore) = n(valore) + 1
NEXT
FOR valore = 1 TO 10
    IF n(valore) = 3 OR n(valore) = 4 THEN
        tris = 1: valore = 10
    END IF
NEXT
IF tris = 1 AND THEN V = 1 ELSE V = 0
ERASE c, n