NB : j'ai fait une petite modification
NB 2 : je n'aime pas profondément cette technique, car sur mes 6 valeurs possibles, la probabilité de sortie du a ou du f est moitié inférieure à la probabilité de toutes les autres valeurs. Les extrémités de l'échantillon sont défavorisées, ce qui n'est pas parfait. La technique n'est équitable que si le nombre de valeurs possibles est de 10
NB 3 : la formule ne marchait pas non plus au-delà de 10 valeurs. Bref… Voici une autre version, qui fonctionne jusqu'à 100 valeurs, même si elle ne résout pas le souci d'équilibrage des probabilités
Definir (
[
a = Liste ( "a" ; "b" ; "c" ; "d" ; "e" ; "f" ; "g" ; "h" ; "i" ; "j" ; "k" ; "l" )
; b = DecompteValeurs ( a )
; c = Arrondi ( Extrait ( Alea ; 3 ; 2 ) * ( b - 1 ) / 99 ; 0 )
; d = ObtenirValeur ( a ; c + 1 )
] ;
d
)