|
|
|
@ -55,7 +55,7 @@ let dp_words =
|
|
|
|
|
ConcatToString words |
|
|
|
|
let dp_words2 = |
|
|
|
|
let words = "This is a test. And has serveral words in it." |
|
|
|
|
SortIntoPairs 2 words |
|
|
|
|
SortIntoGroups 2 words |
|
|
|
|
|> Seq.toList |
|
|
|
|
let dp_bisect = |
|
|
|
|
let words = [|"This"; "is"; "a"; "test"; "."; "Contains"; "text"; "."|] |
|
|
|
@ -113,10 +113,6 @@ let dss_text =
|
|
|
|
|
|> ReplaceArtifact "\n" |
|
|
|
|
|> SplitText @"\s+" |
|
|
|
|
|> ConcatToString |
|
|
|
|
|> SortIntoPairs 6 |
|
|
|
|
|> SortIntoGroups 6 |
|
|
|
|
|> GenerateMap |
|
|
|
|
let dss_startword = PickStartWord dss_startwords |
|
|
|
|
let dss_startword2 = snd(dss_startword) |
|
|
|
|
dss_startword2.["see"] |
|
|
|
|
let dds_startword3 = dss_map.[0] |
|
|
|
|
//let dss_sentences = GenerateMarkovSentences 4 dss_map dss_startwords |
|
|
|
|
let dss_sentences = GenerateMarkovSentences 4 dss_text |