Perl 6 Cool operators in Perl 6 #17
 # build a hash of card names to point values
 my %points = @deck Z @( (2..10, 10, 10, 10, 11) >>xx>> 4 );

                      @( (2..10, 10, 10, 10, 11) >>xx>> 4 );
Copyright © 2009
http://www.pmichaud.com/2009/pres/