|
|
|
@ -30,7 +30,14 @@
|
|
|
|
|
let result = |
|
|
|
|
seq { |
|
|
|
|
for i in 1 .. noOfSentences do |
|
|
|
|
Thread.Sleep(100) //<--- This is needed for new random number to generate. |
|
|
|
|
(*Thread.Sleep is needed for a new random number to generate. |
|
|
|
|
Without it, the same sentence tends to repeat itself. |
|
|
|
|
When debugging (I.E. the observer effect), |
|
|
|
|
enough time passes for a new random number to generate -- |
|
|
|
|
meaning a new seed or "start word" for each sentence. |
|
|
|
|
This isn't ideal but needed so please be careful when attempting to |
|
|
|
|
remove this line.*) |
|
|
|
|
Thread.Sleep(100) |
|
|
|
|
yield GenerateMarkovSentence map (PickRandomWord startWords).Key |
|
|
|
|
} |
|
|
|
|
result |> ConcatToString |