On Mon, 12 Mar 2007 17:41:27 -0700, Larry Wall wrote:
> On Fri, Mar 02, 2007 at 01:33:50PM -0500, Ryan Richter wrote:
> : while ($_ = %state{@@w}.pick).say {
>
> You maybe don't want each word on a separate line...
They did that in the original for some reason. In the unlikely event
that I want
On Fri, Mar 02, 2007 at 01:33:50PM -0500, Ryan Richter wrote:
: As a little Perl 6 exercise I translated the Perl 5 Markov chain /
: dissociated-press script from _The Practice of Programming_:
:
: http://cm.bell-labs.com/cm/cs/tpop/markov.pl
:
: Here's my Perl 6 attempt, with support for differe
As a little Perl 6 exercise I translated the Perl 5 Markov chain /
dissociated-press script from _The Practice of Programming_:
http://cm.bell-labs.com/cm/cs/tpop/markov.pl
Here's my Perl 6 attempt, with support for different prefix lengths.
my $n = 2; # prefix lengt
