Result<'a, 'b> list -> Result<'a list, 'b list>

// string -> Result<int, string>
let tryParseInt str =
  match Int32.TryParse str with
  | true, x -> Ok x
  | false, _ -> 
    Error (sprintf "unable to parse '%s' to integer" str)
​
// returns - Ok [1;2;3]
["1";"2";"3"]
|> List.map tryParseInt
|> List.sequenceResultA
​
// returns - 
//  Error ["unable to parse 'foo' to integer"; 
//          "unable to parse 'bar' to integer"]
​
["1";"foo";"3";"bar"]
|> List.map tryParseInt
|> List.sequenceResultA