fsharp-module-4-koan.fs

open System
open System.IO

type MyRecord =
    { IP : string
      MAC : string
      FriendlyName : string
      ID : int }

let IsMatchByName record name =
    match record with
    | { FriendlyName = nameFound; ID = id; IP = ip } when nameFound = name -> Some((id,ip))
    | _ -> None  

let checkmatch input =
    match input with
    | Some((x, y)) -> printfn "%A" x  
    | None -> printfn "%A" "Sorry no match"   

[<EntryPoint>]    
let main argv =
     let input = Console.ReadLine()