|
|
|
@ -22,14 +22,14 @@ open WetPancake
|
|
|
|
|
let ss_number = PickRandomNumber 10 |
|
|
|
|
let ss_item = |
|
|
|
|
let items = seq {1 .. 10} |
|
|
|
|
PickRandomItem (Random().Next) items |
|
|
|
|
PickRandomItem items |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// Data Access |
|
|
|
|
let da_sampleFilePath = CreateSampleTextFilesPath |
|
|
|
|
let da_sampleTextFiles = FindSampleTextFiles da_sampleFilePath |
|
|
|
|
let da_sampleFiles = ListSampleFiles |
|
|
|
|
let da_randomSampleFile = SelectRandomSampleFile |
|
|
|
|
let da_randomSampleFile = SelectRandomSampleFile() |
|
|
|
|
let da_file = LoadFile da_randomSampleFile |
|
|
|
|
|
|
|
|
|
// Data Cleaning |
|
|
|
@ -107,7 +107,7 @@ let ds_map7Item = ds_map7.Item(0)
|
|
|
|
|
|
|
|
|
|
// Data Services |
|
|
|
|
let dss_text = |
|
|
|
|
LoadFile SelectRandomSampleFile |
|
|
|
|
LoadFile (SelectRandomSampleFile()) |
|
|
|
|
|> ReplaceArtifact "\"" |
|
|
|
|
|> ReplaceArtifact "\n\nIn" |
|
|
|
|
|> ReplaceArtifact "\r" |
|
|
|
|