Began working on random failure bug.

WetPancake/DataServices.fs

@@ -37,4 +37,15 @@
                     Thread.Sleep(100)
                     yield GenerateMarkovSentence map (PickRandomItem startWords).Key
             }
+        result |> ConcatToString
+
+
+    let GenerateMarkovTextTesting noOfSentences map =
+        let startWords = fst(SeperateStartWords map)
+        let result =
+            seq {
+                for i in 1 .. noOfSentences do
+                    Thread.Sleep(100)
+                    yield GenerateMarkovSentence map (PickRandomItem startWords).Key
+            }
         result |> ConcatToString

WetPancake/ProductServices.fs

@@ -7,7 +7,6 @@ module  Pancake =
     open DataProcessing
     open DataStructuring
     open DataServices
-    open System
 
     let RequestRandomText() =
         let data =

WetPancake/Script.fsx

@@ -24,7 +24,22 @@ let ss_number = PickRandomNumber 10
 let ss_item =
     let items = seq {1 .. 10}
     PickRandomItem items
-
+let ss_items2 =
+    let items = seq { for i in 0 .. 0 -> "." }
+    printfn "ss_items2 length is %i" (Seq.length items)
+    PickRandomItem items
+(*
+This is throwing errors so leaving as a comment for the moment.
+let ss_items3 = 
+    let items =
+        [ "Key 1", ["Value 1-1"; "Value 1-2"];
+          "Key 2", ["Value 2-1"; "Value 2-2"];
+          "Key 3", ["Value 3-1"; "Value 3-2"]; ]
+        |> Map.ofList
+    printfn "ss_items3 count is %i" items.Count
+    let result = PickStartWords items
+    printfn "ss_items3 final result is %s" result
+*)
 
 // Data Access
 let da_sampleFilePath = CreateSampleTextFilesPath

WetPancake/SystemServices.fs

@@ -1,14 +1,19 @@
 module internal SystemServices
 
     open System
+    open System.Collections.Generic
     
-    let PickRandomNumber min max = Random().Next(min, max);
+    let PickRandomNumber min max = Random().Next(min, max)
 
     let PickRandomItem seq =
+        (* This if check equates to an empty sequence.
+        The program cannot continue at this point.
+        Need a better way to handle this error.
+        Need a way to give a reasonable "default value" back. *)
         if (Seq.length seq) = 0 then
             seq |> Seq.item 0
         else
-            let index = Random().Next(0, Seq.length seq);
+            let index = PickRandomNumber 1 (Seq.length seq)
             seq |> Seq.item index
 
     (* The if-check is used as a fallback.
@@ -19,5 +24,7 @@
         if (Seq.length seq) = 0 then
             "."
         else
-            let index = Random().Next(0, Seq.length seq);
-            seq |> Seq.item index
+            let index = PickRandomNumber 1 (Seq.length seq)
+            seq |> Seq.item index
+
+    let PickStartWords seq = 0