[List] roll, pick

Author: moritz

lib/List.pod

@@ -147,4 +147,25 @@ Same as C<.join(' ')>.
 
 Same as C<.elems>.
 
+=head3 pick
+
+    multi method pick(List:D:, $count = 1)
+
+Returns a list of random, non-repeating list elements of C<$count>
+elements (or a single element if C<$count> is 1).
+
+If a C<*> is passed to C<$count>, all elements are returned in a random
+order.
+
+=head3 roll
+
+    multi method roll(List:D:, $count = 1)
+
+Returns a lazy list of C<$count> elements, each randomly selected from the
+list. Each random choice is made indepently, like a separate die roll
+where each die face is a list element.
+
+If C<*> is passed to C<$count>, a lazy, infinite list of randomly chosen
+elements from the original list.
+
 =end pod