view release on metacpan or  search on metacpan

demos/dada  view on Meta::CPAN

#!/usr/bin/perl -w
use strict;
use lib qw(../blib/lib ./blib/lib);
use Algorithm::MarkovChain;

use Data::Dumper;

my $mc = Algorithm::MarkovChain->new();

my $infile = shift;
if ($infile) {
    $| = 1;
    print "seeding from $infile\n";

    open IN, $infile;
    while (<IN>) {

demos/empty  view on Meta::CPAN

#!/usr/bin/perl -w
use strict;

use lib qw(../blib/lib ./blib/lib);

use Algorithm::MarkovChain;
use Data::Dumper qw/DumperX/;

my $a = Algorithm::MarkovChain::->new();

print join("\n", $a->spew(), '');

demos/textfile  view on Meta::CPAN

#!/usr/bin/perl -w
use strict;

use lib qw(../blib/lib ./blib/lib);

use Algorithm::MarkovChain;
use Data::Dumper qw/DumperX/;

my $c = Algorithm::MarkovChain::->new();

my $filename = shift || 'README';

open FILE, $filename
  or die "cant open '$filename': $!";

while (<FILE>) {
    $c->seed(longest => 4,