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...
Perl 6 | Cool Perl 6 | #66 |
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 © 2010 http://www.pmichaud.com/2010/pres/ |