Inverted index: Difference between revisions
Content added Content deleted
No edit summary |
m (→{{header|Perl 6}}: handle case of search word not found) |
||
| Line 2,027: | Line 2,027: | ||
foreach search_words_with_index({createindex(@ARGV)}, @searchwords);</lang> |
foreach search_words_with_index({createindex(@ARGV)}, @searchwords);</lang> |
||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
{{works with|rakudo|2015-09-16}} |
|||
<lang perl6>sub MAIN (*@files) { |
<lang perl6>sub MAIN (*@files) { |
||
(my %norm).push: do for @files -> $file { |
(my %norm).push: do for @files -> $file { |
||
| Line 2,035: | Line 2,036: | ||
while prompt("Search terms: ").words -> @words { |
while prompt("Search terms: ").words -> @words { |
||
for @words -> $word { |
for @words -> $word { |
||
say "$word => %inv.{$word.lc}"; |
say "$word => {%inv.{$word.lc}//'(not found)'}"; |
||
} |
} |
||
} |
} |
||