Permalink
Browse files

Use .roll instead of deprecated version of .pick(:replace)

  • Loading branch information...
1 parent c15faa0 commit fb1820acc8fc79687528a3c9e697601245e72433 @bacek bacek committed Feb 21, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 dice.pl
View
@@ -2,7 +2,7 @@
my @count = 0 xx 20;
for ^$chars-to-roll {
- my @a = (^6).map({ [+] (1..6).pick(4, :replace).sort(-*)[^3] }).sort(-*);
+ my @a = (^6).map({ [+] (1..6).roll(4).sort(-*)[^3] }).sort(-*);
for @a { @count[$_]++ };
# say ~@a;
}

0 comments on commit fb1820a

Please sign in to comment.