|
|
|
@ -2,6 +2,9 @@
|
|
|
|
|
|
|
|
|
|
module Pancake = |
|
|
|
|
|
|
|
|
|
//YOU ARE UP TO HERE. |
|
|
|
|
// NEED TO MOVE STUFF UP A LEVEL. |
|
|
|
|
// CREATE AN OBJECT TO STOP THE STATIC CONTENT. |
|
|
|
|
open SystemServices |
|
|
|
|
open DataAccess |
|
|
|
|
open DataCleaning |
|
|
|
@ -9,6 +12,7 @@ module Pancake =
|
|
|
|
|
open DataStructuring |
|
|
|
|
open DataServices |
|
|
|
|
|
|
|
|
|
//KEEP THIS HERE. |
|
|
|
|
let ApplyStandardSetup text = |
|
|
|
|
text |
|
|
|
|
|> ReplaceArtifact "\"" |
|
|
|
@ -18,6 +22,7 @@ module Pancake =
|
|
|
|
|
|> SplitText @"\s+" |
|
|
|
|
|> ConcatToString |
|
|
|
|
|
|
|
|
|
// MOVE THIS INTO AN OBJECT (OF SORTS) |
|
|
|
|
let RequestRandomText = |
|
|
|
|
let data = |
|
|
|
|
LoadFile SelectRandomSampleFile |
|
|
|
@ -31,6 +36,7 @@ module Pancake =
|
|
|
|
|
|> GenerateMap |
|
|
|
|
GenerateMarkovText (PickRandomNumber 10) data |
|
|
|
|
|
|
|
|
|
// MOVE THIS INTO AN OBJECT (OF SORTS) |
|
|
|
|
let RequestRandomText2 = |
|
|
|
|
let data2 = |
|
|
|
|
LoadFile SelectRandomSampleFile |
|
|
|
|