/[stem-hr]/stem-hr.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /stem-hr.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by dpavlin, Sat Feb 26 00:01:42 2005 UTC revision 4 by dpavlin, Sat Feb 26 00:37:18 2005 UTC
# Line 18  Line 18 
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;
# Line 78  while(<>) { Line 80  while(<>) {
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    }
Legend:
Removed from v.3  
changed lines
  Added in v.4
  ViewVC Help
Powered by ViewVC 1.1.26