Open Source Projects Rakudo Perl 6
Confessions of an open source project leader
#101
my @suits  = < ♣ ♢ ♡ ♠ >;
my @ranks  = 2..10, < J Q K A >;

# concatenate each rank with each suit (2♣ 2♢ 2♡ ... A♠)
my @deck = @ranks X~ @suits;
continued...
Copyright © 2009
http://www.pmichaud.com/2009/pres/