wet-pancake/WetPancake/DataServices.fs

module internal DataServices

    open SystemServices
    open System

    let PickStartWord words = PickRandomItem (Random().Next) words

    let rec GenerateMarkovChain (map: Map<string, string List> List) state chain =
        let nextChoice = map.[state]
        nextChoice
        //"Not done yet"

    let GenerateSentence map start =
        let test = GenerateMarkovChain map start [start] 
        let result = "Not done yet"
        result

    let GenerateMarkovSentences noOfSentences map = 0
        //seq {
        //    for i in 0 .. noOfSentences do
        //        yield GenerateSentence map (PickStartWord startWords)
        //}