Markov chain text generator: Difference between revisions

pretty random text but...) and create output text also in any length.

Probably you want to call your program passing those numbers as parameters. Something like: markov( "text.txt", 3, 300 )

 

=={{header|C sharp|C#}}==

using System.Collections.Generic;

using System.IO;

}

}

{{out}}

<pre>axes,' said the Duchess, who seemed ready to agree to everything that Alice said; 'there's a large mustard-mine near here. And the moral of that is-Be what you would seem to be-or if you'd like it put more simply-Never imagine yourself not to be alive. Those creatures frightened me so badly that I cannot keep my promises. I think you are wrong to want a heart. It makes most people unhappy. If you only knew it, you are in luck not to have a heart. I have played Wizard for so many years that I may be as other men are. Why should I give you fair warning,' shouted the Queen, stamping on the ground as she spoke; 'either you or your head must be off, and that the pail was lying in several small pieces, while the poor milkmaid had a nick in her left elbow. There! cried the milkmaid angrily. See what you have done! she screamed. In a minute I shall melt away. I'm very sorry, returned Dorothy. Please forgive us. But the pretty milkmaid was much too wise not to swim, and he was obliged to call to her to help him up again. Why didn't</pre>

In this implementation there is no repeated suffixes!

 

#include <ctime>

#include <iostream>

return 0;

}

{{out}}

<pre>

 

=={{header|Crystal}}==

@dictionary = Hash(StaticArray(String, N), Array(String)).new { [] of String }

 

chain = Markov(3).new

chain.parse("alice_oz.txt")

{{out}}

<pre>tired. I'll tell you my story. So they sat down and listened while he told the following story: I was born in Omaha-- Why, that isn't very far from Kansas! cried Dorothy. No, but I am sure we shall sometime come to some place. But day by day passed away, and they found themselves in the midst of a strange people, who, seeing me come from the big Head; so she took courage and answered: I am Dorothy, answered the girl, if he will see you, said the soldier who had taken her message to the Wizard, although he does not like to go back to Oz, and claim his promise. Yes, said the Woodman, so get behind me and I will tell you my story. So they sat down upon the bank and gazed wistfully at the Scarecrow until a Stork flew by, who, upon seeing them, stopped to rest at the water's edge. Who are you and where are you going? My name is Dorothy, said the girl, let us go. And she handed the basket to the Scarecrow. There were no fences at all by the roadside now, and the land was rough and untilled. Toward evening</pre>

=={{header|D}}==

{{trans|Kotlin}}

import std.random;

import std.range;

void main() {

writeln(markov("alice_oz.txt", 3, 200));

{{out}}

<pre>neighbour to tell him. 'A nice muddle their slates'll be in before the trial's over!' thought Alice. One of the jurors had a pencil that squeaked. This of course, Alice could not think of any good reason, and as the monster crawls through the forest he seizes an animal with a leg and drags it to his ear. Alice considered a little, and then said 'The fourth.' 'Two days wrong!' sighed the Hatter. 'I deny it!' said the March Hare. 'Sixteenth,' added the Dormouse. 'Write that down,' the King replied. Here the other guinea-pig cheered, and was immediately suppressed by the officers of the court, all dressed in green clothes and had greenish skins. They looked at Dorothy again. Why should I do this for you? asked the Scarecrow. You are quite welcome to take my head off, as long as the tiger had said, and its body covered with coarse black hair. It had a great longing to have for her own the Silver Shoes had fallen off in her flight through the air, and on the morning of the second day I awoke and found the oil-can, and then she had to stop and untwist it. After a</pre>

 

=={{header|F Sharp}}==

let ngram len source i = source |> List.skip i |> List.take len

let trailing len source = ngram len source (Seq.length source - len)

|> List.ofSeq

|> markov 2 100

{{out}}

<pre>

=={{header|Factor}}==

{{works with|Factor|0.99 2019-10-06}}

make math random sequences splitting ;

 

] { } make 2nip " " join print ;

 

{{out}}

<pre>

sight, they were getting so far off). 'Oh, my poor little feet, I wonder who will put on your shoes and stockings for you now, dears? I'm sure I don't want to live here, cried Dorothy. I want to go! Let me see: four times five is twelve, and four times six is thirteen, and four times six is thirteen, and four times seven is-oh dear! I shall be glad to give you some. And I want him to give me a heart, said the Woodman. So he walked to the edge of the desert, so she may know a way to carry you to the City of Oz in less than no time she'd have everybody executed, all round. (It was this last remark that had made her so savage when they met in the house, Let us both go to law: I will prosecute you. -Come, I'll take no denial; We must have a prize herself, you know,' said Alice to herself. 'Shy, they seem to put everything upon Bill! I wouldn't be in Bill's place for a good deal: this fireplace is narrow, to be sure; but I think I could, if I only knew how to begin.'

</pre>

 

=={{header|Go}}==

 

import (

}

return append(slice, value)

{{out|input=-n=3 -runs=3 -words=12 -capital -sentence}}

<pre>Alice could speak again. The Mock Turtle went on at last, more calmly, though still sobbing a little now and then, and holding it to his ear.

This seems to be reasonably close to the specification:

 

 

setstats=:dyad define

end.

;:inv phrase { words

 

genphrase''

got in as alice alice

perhaps even alice

genphrase''

 

And, using 8 word suffixes (but limiting results to a bit over 50 words):

 

genphrase''

added it alice was beginning to get very tired of this i vote the young lady tells us alice was beginning to get very tired of being such a tiny little thing it did not take her long to find the one paved with yellow bricks within a short time

the raft through the water they got along quite well alice was beginning to get very tired of this i vote the young lady tells us alice was beginning to get very tired of being all alone here as she said this last word two or three times over to

genphrase''

 

(see talk page for discussion of odd line wrapping with some versions of Safari)

{{trans|Kotlin}}

{{works with|Java|8}}

import java.nio.file.Files;

import java.nio.file.Path;

System.out.println(markov("alice_oz.txt", 3, 200));

}

{{out}}

<pre>Emerald City is? Certainly, answered the Queen; but it is a lucky thing I am not, for my mouth is only painted, and if I ever get my heart? Or I my courage? asked the Lion in surprise, as he watched her pick up the Scarecrow and said: Come with me, for Oz has made me its ruler and the people gazed upon it with much curiosity. The Tin Woodman appeared to think deeply for a moment. Then he said, The Winkies were sorry to have them go, and they had grown so large in the last few minutes that she wasn't a bit afraid of interrupting him,) 'I'll give him sixpence. I don't believe there's an atom of meaning in it.' The jury all wrote down on their slates, and then added them up, and reduced the answer to it?' said the Mock Turtle. 'No, no! The adventures first,' said the Gryphon hastily. 'Go on with the next verse,' the Gryphon repeated impatiently: 'it begins I passed by his garden, and marked, with one eye,</pre>

 

=={{header|Julia}}==

{{works with|Julia|0.6}}

 

words = matchall(r"\w+", txt)

dict = Dict()

 

txt = readstring(download("http://paulo-jorente.de/text/alice_oz.txt"))

 

{{out}}

 

=={{header|Kotlin}}==

 

import java.io.File

fun main() {

println(markov("alice_oz.txt", 3, 100))

 

Sample output:

Computes keys of all lengths <= N. During text generation, if a key does not exist in the dictionary, the first (least recent) word is removed, until a key is found (if no key at all is found, the program terminates).

 

local i = math.ceil(math.random() * #t)

return t[i]

end

io.write('\n')

 

{{out}}

she comes, to-' At this moment Five, who had been greatly interested in

</pre>

 

=={{header|Perl}}==

use warnings;

 

}

 

{{out}}

<pre>Alice was thoroughly puzzled. 'Does the boots and shoes,' the Gryphon whispered in a fight with another hedgehog, which seemed to extend to the South Country? To see the Great Oz was ready to sink into the garden, where Alice could see or feel was the end of you, as she chose, she ran after her. 'I've something important to say!' This sounded promising, certainly: Alice turned and walked through the forest very thick on this side, and it seemed to Alice as she chose, she ran out and shone brightly. So they all spoke at once, I'll chop it down, and the Dormouse sulkily remarked, 'If you please, sir-' The Rabbit started violently, dropped the white kid gloves and the four travelers walked up to the Land of Oz in less than no time to think about stopping herself before she made a dreadfully ugly child: but it is a man,' said the Stork, as she spoke. 'I must be a person of authority among them, called out, 'Sit down, all of them expected to come out of breath, and till the Pigeon in a sorrowful tone; 'at least there's no use to me they flew away with me,' thought Alice,</pre>

=={{header|Phix}}==

This was fun! (easy, but fun)

{{out}}

from the alice_oz.txt file:

I beg your pardon!\' cried Alice hastily, afraid that she was shrinking rapidly; so she felt lonely among all these strange people. Her

tears seemed to Alice a good dinner."

</pre>

 

=={{header|PHP}}==

 

 

// Automated text generator using markov chain

);

 

 

{{out}}

Usage: markov.py source.txt context length

 

 

def makerule(data, context):

rule = makerule(data, int(sys.argv[2]))

string = makestring(rule, int(sys.argv[3]))

 

{{out}}

 

{{Works with|Python|3.7}}

 

from os.path import (expanduser)

 

if __name__ == '__main__':

{{Out}}

<pre>Markov chain text generation:

 

=={{header|Racket}}==

 

(define (pick xs) (list-ref xs (random (length xs))))

(values (append (rest prefix) (list suffix)) (cons suffix out))))

 

 

{{out}}

(formerly Perl 6)

{{Works with|rakudo|2017-01}}

 

sub add-to-dict ( $text, :$n=2, ) {

 

put @generated-text.head: $words;

<pre>>raku markov.raku <alice_oz.txt --n=3 --words=200

Scarecrow. He can't hurt the straw. Do let me carry that basket for you. I shall not mind it, for I can't get tired. I'll tell you what I think, said the little man. Give me two or three pairs of tiny white kid gloves: she took up the fan and gloves, and, as the Lory positively refused to tell its age, there was no use in saying anything more till the Pigeon had finished. 'As if it wasn't trouble enough hatching the eggs,' said the Pigeon; 'but I must be very careful. When Oz gives me a heart of course I needn't mind so much. They were obliged to camp out that night under a large tree in the wood,' continued the Pigeon, raising its voice to a whisper. He is more powerful than they themselves, they would surely have destroyed me. As it was, I lived in deadly fear of them for many years; so you can see for yourself. Indeed, a jolly little clown came walking toward them, and Dorothy could see that in spite of all her coaxing. Hardly knowing what she did, she picked up a little bit of stick, and held it out to

 

=={{header|REXX}}==

parse arg ord fin iFID seed . /*obtain optional arguments from the CL*/

if ord=='' | ord=="," then ord= 3 /*Not specified? Then use the default.*/

end /*k*/

if g\=='' then say g /*There any residual? Then display it.*/

{{out|output|text=&nbsp; when using the default inputs:}}

<pre>

{{trans|Python}}

{{works with|Rust|1.32 nightly (2018 edition)}}

use std::fs;

 

sample(&mut rng, max, 1).into_vec()[0]

}

 

{{out}}

=={{header|Sidef}}==

{{trans|Perl}}

var dict = Hash()

words.each_cons(n+1, {|*prefix|

}

 

 

{{out}}

{{trans|Python}}

{{works with|Swift|4.2}}

 

func makeRule(input: String, keyLength: Int) -> [String: [String]] {

let str = makeString(rule: rule, length: 300)

 

 

{{out}}

{{trans|Kotlin}}

{{libheader|Wren-str}}

import "random" for Random

 

var markov = Fn.new { |filePath, keySize, outputSize|

}

 

 

{{out}}