Last letter-first letter: Difference between revisions
Content deleted Content added
→{{header|Perl 6}}: add entry |
m →{{header|Perl 6}}: explain $name.ord |
||
| Line 1,891: | Line 1,891: | ||
my @succs = [] xx 128; |
my @succs = [] xx 128; |
||
for @names.kv -> $i, $name { |
for @names.kv -> $i, $name { |
||
my $ix = $name.ord; |
my $ix = $name.ord; # $name.substr(0,1).ord |
||
push @succs[$ix], $i; |
push @succs[$ix], $i; |
||
} |
} |
||