Perl 6 Cool Perl 6 #67
 # 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)

This is a simple list

[2, 3, 4, 5, 6, 7, 8, 9, 10, 10, 10, 10, 11]
Copyright © 2010
http://www.pmichaud.com/2010/pres/