Word frequency: Difference between revisions

Line 3,978:

=={{header|Raku}}==

(formerly Perl 6)

Note: much of the following exposition is no longer critical to the task as the requirements have been updated, but is left here for historical and informational reasons.

Line 3,991:

Here is a sample that shows the result when using various different matchers.

<syntaxhighlight lang="raku" line>sub MAIN ($filename, $top = 10) {

<syntaxhighlight lang="raku" line>sub MAIN ($filename, UInt $top = 10) {

my $file = $filename.IO.slurp.lc.subst(/ (<[\w]-[_]>'-')\n(<[\w]-[_]>) /, {$0 ~ $1}, :g );

my @matcher = (

my @matcher =

rx/ <[a..z]>+ /, # simple 7-bit ASCII

rx/ \w+ /, # word characters with underscore

rx/ <[\w]-[_]>+ /, # word characters without underscore

rx/ <[\w]-[_]>+~~[["'"|~~'-~~'|"~~'-~~"]<[\w]-[_]~~>+]* / # word characters without underscore but with hyphens and contractions

rx/ [<[\w]-[_]>+]+ % < ' - '- > / # word characters without underscore but with hyphens and contractions

);

;

for @matcher -> $reg {

say "\nTop $top using regex: ", $reg.raku;

~~.put for~~ $file.comb( $reg ).Bag.sort(-*.value)[^$top];

my @words = $file.comb($reg).Bag.sort(-*.value)[^$top];

my $length = max @words».key».chars;

printf "%-{$length}s %d\n", .key, .value for @words;

}

}</syntaxhighlight>