Markov chain text generator: Difference between revisions

Line 1,067:

=={{header|Phix}}==

This was fun! (easy, but fun)

<lang Phix>~~integer fn = open~~(~~"alice_oz.txt","rb"~~)

with javascript_semantics

string text = get_text(fn)

constant s = "now he is gone she said he is gone for good"

close(fn)

string text = iff(platform()=JS?s:get_text("alice_oz.txt"))

sequence words = split(text)

sequence words = split(text)

function markov(integer n, m)

function markov(integer n, m)

integer dict = new_dict(), ki

integer dict = new_dict(), ki

sequence key, data, res

sequence key, data, res

string suffix

string suffix

for i=1 to length(words)-n do

for i=1 to length(words)-n do

key = words[i..i+n-1]

key = words[i..i+n-1]

suffix = words[i+n]

suffix = words[i+n]

ki = getd_index(key,dict)

ki = getd_index(key,dict)

if ki=0 then

if ki=0 then

data = {}

data = {}

else

~~data~~ = ~~getd_by_index(ki,dict)~~

else

data = getd_by_index(ki,dict)

end if

end if

setd(key,append(data,suffix),dict)

setd(key,append(deep_copy(data),suffix),dict)

end for

end for

integer start = rand(length(words)-n)

integer start = rand(length(words)-n)

key = words[start..start+n-1]

key = words[start..start+n-1]

res = key

res = deep_copy(key)

for i=1 to m do

for i=1 to m do

ki = getd_index(key,dict)

ki = getd_index(key,dict)

if ki=0 then exit end if

if ki=0 then exit end if

data = getd_by_index(ki,dict)

data = getd_by_index(ki,dict)

suffix = data[rand(length(data))]

suffix = data[rand(length(data))]

res = append(res,suffix)

res = append(res,suffix)

key = append(key[2..$],suffix)

key = append(key[2..$],suffix)

end for

end for

return join(res)

return join(res)

end function

end function

?markov(2,100)</lang>

?markov(2,100)

from the alice_oz.txt file:

Line 1,110:

Line 1,112:

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>

Under pwa/p2js with more limited input the output could be anything between and beyond

<pre>

`gone for good`

`said he is gone she said he is gone she said he is gone she said he is gone she said he is gone for good`

</pre>