Per esempio, prendiamo il caso del lotto. Vuoi vincere 10mila lire. Punti 1000 lire. Se vinci, hai guadagnato 10000 e ti puoi fermare. Altrimenti, hai perso 1000 lire, e adesso devi cercare di vincere 11000. E così via. Qualcuno adesso dirà "Allora, gioco una progressione finché il numero non esca, e vinco sicuramente 10mila lire"
Se sei infinitamente ricco, questo lo puoi anche fare. Ma non sei infinitamente ricco.
Questo programma perl calcola quanti soldi devi avere per poter fare una progessione molto lunga. Chiamalo con perl prog_calc_fixed n, dove n è il numero di estrazioni dopo le quali intendi rinunciare.
Proviamo con n=50:
At turn 50 you have lost 1057190 lire so far and must bet 106719 If you lose all the above, you've lost 1163909 The probability of this happening is 0.057387963544202 The rest of the time you win 10000 So on average you lose 57368 lire.Devi avere un milione duecentomila da buttare, e accettare di perderle con una probabilità di quasi 6 per cento. Per diecimila lire?
Con n=100 diventa anche più assurdo:
At turn 100 you have lost 125268294 lire so far and must bet 12527829 If you lose all the above, you've lost 137796123 The probability of this happening is 0.00329337835975066 The rest of the time you win 10000 So on average you lose 443848 lire.Qualcuno con 138 milioni guadagna 10000 in interessi abbastanza velocemente.
Qualcuno che propone di giocare una progressione anche più lunga deve essere davvero ricco. Le 10mila lire diventano una somma sempre più irrisoria.