Browse Source

Updated the comment explaining the need for the thread-sleep line.

master
Craig Oates 6 years ago
parent
commit
717fa0c8d8
  1. 9
      WetPancake/DataServices.fs

9
WetPancake/DataServices.fs

@ -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
Loading…
Cancel
Save