List[Either[Throwable,_]]のリスト中にLeftが1個以上あったら最初のLeftを返し、Leftが1個もなければ、Rightを1個のリストにまとめて返すコード

gistfile1.scala

def f[a] = (d:List[Either[Throwable,a]]) => 
  d.collect{case Left(x) => x}.headOption.toLeft(d.map{case Right(x) => x})

scala> Some(List(Right("4"),Right("3"))) map f
res11: Option[Product with Either[Throwable,List[java.lang.String]] with Serializable] = Some(Right(List(4, 3)))

scala> Some(List(Right("4"),Left(new RuntimeException),Right("3"))) map f
res12: Option[Product with Either[Throwable,List[java.lang.String]] with Serializable] = Some(Left(java.lang.RuntimeException))

scala> Some(List(Right("4"),Left(new RuntimeException("a")),Right("3"),Left(new RuntimeException("b")))) map f
res13: Option[Product with Either[Throwable,List[java.lang.String]] with Serializable] = Some(Left(java.lang.RuntimeException: a))

遅レスですが、Scalazで。

scala> List(1.right[Throwable], 2.right[Throwable]).sequence[({ type X[A] = Either[Throwable, A] })#X, Int]
res1: Either[java.lang.Throwable,List[Int]] = Right(List(1, 2))

scala> List(1.right, (new Exception).left, (new Error).left).sequence[({ type X[A] = Either[Throwable, A] })#X, Int]
res2: Either[java.lang.Throwable,List[Int]] = Left(java.lang.Exception)

scalaz版ありがとうございます。勉強になります！