@ -28,18 +28,6 @@ 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
@ -130,12 +118,9 @@ let dss_text =
|> ApplyStandardSetup
|> SortIntoGroups 2
|> GenerateMap
//let dss_startwords = SeperateStartWords dss_text
//let dss_sentences = GenerateMarkovText 2 dss_text
//printfn "Text: %A" dss_sentences
let dss_sentences2 = GenerateMarkovTextTesting 2 dss_text
printfn "Text: %A" dss_sentences2
let dss_startwords = SeperateStartWords dss_text
let dss_sentences = GenerateMarkovText 2 dss_text
printfn "Text: %A" dss_sentences
// (WetPancake) Pancake