Permalink
Browse files

oops, remove spurious comment

  • Loading branch information...
philandstuff committed Sep 5, 2010
1 parent 009c915 commit d3f185c9b290c30322a25e93e614d2e95f53b161
Showing with 0 additions and 1 deletion.
  1. +0 −1 perlmonks/weighted-roll-731696.pl
@@ -38,7 +38,6 @@
say "Total Weights $total";
sub pick (@weights, $total) {
- #my $rand = $total.rand.int;
my $rand = (0..^$total).pick;
for @weights.kv -> $i, $w {
$rand -= $w;

0 comments on commit d3f185c

Please sign in to comment.