Data commit

Task/Menu/F-Sharp/menu.fs

@@ -0,0 +1,22 @@
+open System
+
+let rec menuChoice (options : string list) prompt =
+    if options = [] then ""
+    else
+        for i = 0 to options.Length - 1 do
+            printfn "%d. %s" (i + 1) options.[i]
+
+        printf "%s" prompt
+        let input = Int32.TryParse(Console.ReadLine())
+
+        match input with
+        | true, x when 1 <= x && x <= options.Length -> options.[x - 1]
+        | _, _ -> menuChoice options prompt
+
+[<EntryPoint>]
+let main _ =
+    let menuOptions = ["fee fie"; "huff and puff"; "mirror mirror"; "tick tock"]
+    let choice = menuChoice menuOptions "Choose one: "
+    printfn "You chose: %s" choice
+
+    0