// Learn more about F# at http://fsharp.org
// See the 'F# Tutorial' project for more help.

(*

let convStrB(s:string): byte list =
    let lz = s.ToCharArray() |> List.ofArray
    List.map(fun (p:char) -> (byte p) - 0x30uy) lz

let czytajUlamek wej:string =
    match wej with
    | [] -> []
    | _ -> let x = Regex.Match(wej, "[0-9]")
 *)

[<EntryPoint>]
let main argv =
    let wejscie:string = "0.1234(5678)"

    let calkowita = System.Text.RegularExpressions.Regex.Match(wejscie, "[0-9]+")

    let okresowa_tmp = System.Text.RegularExpressions.Regex.Match(wejscie, "\([0-9]+\)")
    let okresowa     = System.Text.RegularExpressions.Regex.Match(okresowa_tmp.ToString(), "[0-9]+")

    let nieokres_tmp = System.Text.RegularExpressions.Regex.Match(wejscie, ".[0-9]+\(")
    let nieokresowa  = System.Text.RegularExpressions.Regex.Match(nieokres_tmp.ToString(), "[0-9]+")

    let ulamkowa_tmp = System.Text.RegularExpressions.Regex.Match(wejscie, ".[0-9]+\([0-9]+\)")
    let ulamkowa     = System.Text.RegularExpressions.Regex.Match(ulamkowa_tmp.ToString(), "[0-9].*")

    printfn "Calkowita: %A"   <| calkowita
    printfn "Nieokresowa: %A" <| nieokresowa
    printfn "Okresowa: %A"    <| okresowa
    printfn "Ulamkowa1 %A"    <| ulamkowa_tmp
    printfn "Ulamkowa2 %A"    <| ulamkowa

    //printfn "%A" argv
    0 // return an integer exit code