End of day check in.

Genereating a markov sentence.

WetPancake/DataServices.fs

@@ -15,8 +15,10 @@
         let result = "Not done yet"
         result
 
-    let GenerateMarkovSentences noOfSentences map = 0
-        //seq {
-        //    for i in 0 .. noOfSentences do
-        //        yield GenerateSentence map (PickStartWord startWords)
-        //}
+    let GenerateMarkovSentences noOfSentences map =
+        let result =
+            seq {
+                for i in 0 .. noOfSentences do
+                    yield GenerateSentence map // <--- Up to here...
+            }
+        "Not done yet."

WetPancake/Script.fsx

@@ -115,4 +115,4 @@ let dss_text =
     |> ConcatToString
     |> SortIntoGroups 6
     |> GenerateMap
-let dss_sentences = GenerateMarkovSentences 4 dss_text
+let dss_sentences = GenerateMarkovSentences 4 dss_text // <--- Up to here