Changeset 4746 for lang/perl/Mezasi

Timestamp:

01/17/08 03:44:03 (5 years ago)

Author:

hiroyukim

Message:

配列の扱いがrubyと微妙にちがうので調整

Files:

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

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

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