Inverted index: Difference between revisions
Content deleted Content added
SqrtNegInf (talk | contribs) m →{{header|Perl 6}}: moved hash initialization inside do block |
SqrtNegInf (talk | contribs) m →{{header|Perl 6}}: fixed my typo |
||
Line 2,031: | Line 2,031: | ||
my %norm; |
my %norm; |
||
do for @files -> $file { |
do for @files -> $file { |
||
%norm |
%norm.push: $file X=> slurp($file).lc.words; |
||
} |
} |
||
(my %inv).push: %norm.invert.unique; |
(my %inv).push: %norm.invert.unique; |