Added a few notes for how to move forward.

WetPancake/MapProcessing.fs

@@ -1,4 +1,12 @@
 module internal MapProcessing
 
     // You are up to here craig
-    // starting to build a markov map using the functions in text and file procssing...
+    // starting to build a markov map using the functions in text and file procssing...
+
+    (*
+    Notes for possible way forward
+    let random = defaultArg random (Random().Next)
+    let isStartOfSentence = defaultArg isStartOfSentence (Regex(@"^[A-Z]").IsMatch)
+    let isEndOfSentence = defaultArg isEndOfSentence (Regex(@"\.").IsMatch)
+    let startWords, otherWords = map |> Map.partition (fun k _ -> isStartOfSentence k)
+    *)