Began adding the markov functionality.

WetPancake/DataServices.fs

@@ -1 +1,15 @@
-module internal DataServices
+module internal DataServices
+
+    open SystemServices
+    open System
+
+    let PickStartWord words =
+        let word = PickRandomItem (Random().Next) words
+        word
+
+    let PutMarkovTogether map words =
+        let result = "Not done yet"
+        result
+
+    let GenerateMarkovSentence map startWord =
+        PutMarkovTogether map [startWord]

WetPancake/Script.fsx

@@ -15,7 +15,7 @@ open DataAccess
 open DataCleaning
 open DataProcessing
 open DataStructuring
-open System.Reflection
+open DataServices
 
 // System Services
 let ss_number = PickRandomNumber 10
@@ -117,3 +117,9 @@ let dss_text =
     |> Seq.toList
 let dss_map = [for item in  dss_text -> ConstructMap Map.empty item]
 let dss_startwords = [for item in dss_map -> SeperateStartWords item]
+let dss_sentence =
+    seq {
+        for i in 1 .. 4 do
+            yield GenerateMarkovSentence dss_map (PickStartWord dss_startwords)
+        }
+    |> Seq.toList