RosettaCodeData/Task/Pick-random-element/Perl-6/pick-random-element-3.pl6

# define the deck
my @deck = <2 3 4 5 6 7 8 9 J Q K A> X~ <♠ ♣ ♥ ♦>;
say @deck.pick;    # Pick a card
say @deck.pick(5); # Draw 5
say @deck.pick(*); # Get a shuffled deck
update 2013-06-05 21:47:54 +00:00			`# define the deck`
2016 Update 2016-12-05 22:15:40 +01:00			`my @deck = <2 3 4 5 6 7 8 9 J Q K A> X~ <♠ ♣ ♥ ♦>;`
June 2018 Update 2018-06-22 20:57:24 +00:00			`say @deck.pick; # Pick a card`
			`say @deck.pick(5); # Draw 5`
			`say @deck.pick(*); # Get a shuffled deck`