Changeset 4747 for lang/perl/Mezasi

Timestamp:

01/17/08 04:15:03 (5 years ago)

Author:

hiroyukim

Message:

bug fixed

Files:

• lang/perl/Mezasi/trunk/lib/Mezasi/Util.pm (modified) (1 diff)

lang/perl/Mezasi/trunk/lib/Mezasi/Util.pm

@@ -37 +37 @@
         my $key = JSON::Syck::Dump([ grep {$_} map {  $ary[$_]  } ($idx..($idx+$MarkovKeySize - 1)) ]);
         $table{$key} = [] unless $table{$key};
-        push @{$table{$key}},$ary[$idx + $MarkovKeySize + 1] ;
+        push @{$table{$key}},$ary[$idx + $MarkovKeySize ] ;
     }
     my %uniq;