Perl 6 Perl 6 today #36

Case-insensitive sort

> my @a = <Fruit CHERRY danish Apple berry BaNaNa apricot>;
> .say for @a.sort( { .lc } );
Apple
apricot
BaNaNa
berry
CHERRY
danish
Fruit

> my %scores = < pmichaud 52   mäsak 95   PerlJam 78 >;
> .say for %scores.sort( { .key.lc } );
mäsak   95
PerlJam 78
pmichaud         52
Copyright © 2009
http://www.pmichaud.com/2009/pres/