|
|
|
@ -10,4 +10,14 @@
|
|
|
|
|
#load "ProductServices.fs" |
|
|
|
|
|
|
|
|
|
open SystemServices |
|
|
|
|
let number = PickRandomNumber 10 |
|
|
|
|
open DataAccess |
|
|
|
|
|
|
|
|
|
// System Services |
|
|
|
|
let ss_number = PickRandomNumber 10 |
|
|
|
|
|
|
|
|
|
// Data Access |
|
|
|
|
let da_sampleFilePath = CreateSampleTextFilesPath |
|
|
|
|
let da_sampleTextFiles = FindSampleTextFiles da_sampleFilePath |
|
|
|
|
let da_sampleFiles = ListSampleFiles |
|
|
|
|
let da_randomSampleFile = SelectRandomSampleFile |
|
|
|
|
let da_file = LoadFile da_randomSampleFile |