WinForLife

Oggi stavo discutendo con un mio collega sul gioco WinForLife, e ci domandavamo: che probabilita' ci sono di vincere?
Probabilemente la via piu' semplice per rispondere a questa domanda e' una ricerca sul web. Io pero' ho deciso di investire qualche minuto nello scrivere uno script Perl per tale calcolo.
Scriverlo e' stato semplice[1], e i risultati sono sorprendenti:

0+ -> 0.0000002706272056117257355647448526705492649765
0    -> 0.00000541254411223451471129489705341098529953
1    -> 0.000541254411223451471129489705341098529953
2    -> 0.01096040182727489229037216653315724523155
3    -> 0.07794063521617701184264651756911818831323
4    -> 0.2386931953495420987681049600554244517093
5    -> 0.3437182013033406222260711424798112104614
6    -> 0.2386931953495420987681049600554244517093
7    -> 0.07794063521617701184264651756911818831323
8    -> 0.01096040182727489229037216653315724523155
9    -> 0.000541254411223451471129489705341098529953
10   -> 0.00000541254411223451471129489705341098529953
10+   -> 0.0000002706272056117257355647448526705492649765

in cui 0+ e 10+ equivale a indovinare rispettivamente 0 e 10 numeri, entrambi con il numerone.

Come disse il matematico Bruno de Finetti il gioco d'azzardo e' una tassa sugli imbecilli.

Note:
[1] -> credetemi, e' vero; il segreto e' utilizzare il modulo Math::BigFloat