>>53
5箱目の >>199 にこんなのがあった
これで上手く行く理由は俺には分からん

@weight = (25, 25, 150);
foreach (@weight) { $max = $_ if $_ > $max };
until ( $weight[$key = int(rand(@weight))] > rand($max) ) {}
print $key;