Markov chain text generator: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Robbie (talk | contribs)
1,452 edits
Thundergnat (talk | contribs)
10,352 edits
Line 539: Line 539:
=={{header|Perl 6}}==
=={{header|Perl 6}}==
{{Works with|rakudo|2017-01}}
{{Works with|rakudo|2017-01}}
<lang Perl6>unit sub MAIN ( :$text=$*IN, :$n=2, :$words=100, );
<lang perl6>unit sub MAIN ( :$text=$*IN, :$n=2, :$words=100, );


sub add-to-dict ( $text, :$n=2, ) {
sub add-to-dict ( $text, :$n=2, ) {
Retrieved from "https://rosettacode.org/wiki/Markov_chain_text_generator"