18 |
# - uzvici |
# - uzvici |
19 |
# |
# |
20 |
|
|
21 |
|
use strict; |
22 |
|
|
23 |
sub kgh { |
sub kgh { |
24 |
my ($pre,$replace,$post) = @_; |
my ($pre,$replace,$post) = @_; |
25 |
$replace =~ s/[cè]/k/g; |
$replace =~ s/[cè]/k/g; |
80 |
my $nr_stems = keys(%stem_words); |
my $nr_stems = keys(%stem_words); |
81 |
printf "\n# %d words, %d stems in %d ops, %.2f%% size\n",$words,$nr_stems,$stems,($nr_stems*100/$words); |
printf "\n# %d words, %d stems in %d ops, %.2f%% size\n",$words,$nr_stems,$stems,($nr_stems*100/$words); |
82 |
|
|
83 |
|
foreach my $s (keys %stem_words) { |
84 |
|
print "#stem $stem_words{$s} $s\n"; |
85 |
|
} |
86 |
|
|
87 |
|
foreach my $r (keys %rules) { |
88 |
|
print "#rule $rules{$r} $r\n"; |
89 |
|
} |