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...
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/ |