blob: 64ffd6b12b7968abf0f770723e63e3a519a8e440 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!/usr/bin/env perl
use strict;
use warnings;
sub most_frequent_word{
my %h;
map{$h{$_}++ if $_ ne $_[1]}split /[^\w]/,$_[0];
(sort{$h{$b}<=>$h{$a}}keys %h)[0]
}
printf "%s\n",most_frequent_word("Joe hit a ball, the hit ball ".
"flew far after it was hit.",
"hit");
printf "%s\n",most_frequent_word("Perl and Raku belong to the same family.".
" Perl is the most popular language ".
"in the weekly challenge.",
"the");
|
