printfn "Hello World"

​

​

​

let myString : string = 

    "12345,\"blah\",\"blah1\",\"blah2\",\"blah3\",\n89547,\"blah,,blah\",\"blah1\",\"blah2\",\"blah3\""

let myClist = List.ofSeq (myString)

​

//myClist |> List.map (fun x -> printfn "%O" x) |>ignore

​

type Quotation = | Quoted | Unquoted

​

let rec parseCharlist cl state cell result = 

    match cl with

    | [] -> result

    | head::tail -> match head,state with

                    | '"', Unquoted -> parseCharlist tail Quoted cell result

                    | '"', Quoted -> parseCharlist tail Unquoted cell result

                    | '\n',_ -> parseCharlist tail state cell result

                    | ',',Unquoted -> 

                                let newResult = result @ [cell]; 

                                parseCharlist tail state "" newResult

                    | _, _ -> 

                                let newCell = cell + (head.ToString())

                                parseCharlist tail state newCell result

parseCharlist myClist Unquoted "" [] |> printfn "%A"