A markovian bag model of some input test.txt

bagmodel-slurp.p6

use v6;

my $previous;
my $current;

my %model := Hash.new;

sub add-to-model (%model,$word,$trailing) {
    if not %model.exists($word) {
        %model{$word} = KeyBag.new;
    }
    %model{$word}{$trailing}++;
}


for slurp("test.txt").comb(/\w+/) -> $word {
    if not $previous {
        $previous = $word;
        next;
    }
    $current = $word;
    add-to-model(%model,$previous,$current);
    $previous = $current;
}

say %model.perl;