Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

  • Loading branch information...
commit fb1820acc8fc79687528a3c9e697601245e72433 1 parent c15faa0
@bacek bacek authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  dice.pl
View
2  dice.pl
@@ -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;
}
Please sign in to comment.
Something went wrong with that request. Please try again.