Changeset 4749

Show
Ignore:
Timestamp:
01/17/08 04:45:03 (5 years ago)
Author:
hiroyukim
Message:

bug fixed

Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r4747 r4749  
    5151        } 
    5252    } 
    53     my $key    = JSON::Syck::Dump([ map { $ary[$_] } (0..$MarkovKeySize) ]); 
     53    my $key    = JSON::Syck::Dump([ map { $ary[$_] } (0..($MarkovKeySize - 1 )) ]); 
    5454    my $result = join('',@{JSON::Syck::Load($key)});  
    5555    for my $count ( 0..10000 ) {