Added script test for pick random item.

WetPancake/Script.fsx

@@ -12,9 +12,13 @@
 open SystemServices
 open DataAccess
 open DataCleaning
+open System
 
 // System Services
 let ss_number = PickRandomNumber 10
+let ss_item =
+    let items = seq{1 .. 10}
+    PickRandomItem (Random().Next) items
 
 // Data Access
 let da_sampleFilePath = CreateSampleTextFilesPath

WetPancake/SystemServices.fs

@@ -2,4 +2,8 @@
 
     open System
     
-    let PickRandomNumber max = Random().Next(0, max);
+    let PickRandomNumber max = Random().Next(0, max);
+
+    let PickRandomItem (rnd: int -> int) seq =
+        let index = rnd (Seq.length seq)
+        seq |> Seq.item index