如何使用Foldable的foldM？

Question

我试着通过一个简单的例子来理解cats中的foldM of Foldable：假设我需要对列表中的数字求和，而运行和是正的，而不是正的，则中断。

val sumUp: (Int, Int) => Option[Int] = (x, y) => {
  println(s"x = $x, y = $y")
  val sum = x + y
  if (sum > 0) Some(sum) else None 
} 

scala> val xs  = List(1, 2, 3, -2, -5, 1, 2, 3)
xs: List[Int] = List(1, 2, 3, -2, -5, 1, 2, 3)

scala> Foldable[Stream].foldM(xs.toStream, 0)(sumUp)
x = 0, y = 1
x = 1, y = 2
x = 3, y = 3
x = 6, y = -2
x = 4, y = -5
res27: Option[Int] = None

现在，我需要编写新的函数sumUp2来获取输入流的尾部，它从运行和变为<= 0和foldM中断的位置开始。例如，我需要获得如下内容：

scala> val tail = Foldable[Stream].foldM(xs.toStream, 0)(sumUp2)
tail: Stream[Int] = Stream(-5, ?)

scala>tail.toList
res28: List[Int] = List(-5, 1, 2, 3)

如何编写sumUp2？

Answer 1

您可以做的是累加两个值(在一个元组中)：运行求和，直到它变为负数或零；以及尾部，它开始累加值。

val sumUp2: ((Int, List[Int]), Int) => Id[(Int, List[Int])] = (x, y) => {
  val sum = if (x._1 < 0) x._1 else x._1 + y
  if (sum > 0) (sum, x._2) else (-1, x._2 ++ List(y))
}

然后，您可以从元组中的第二个元素获得尾部：

val xs  = List(1, 2, 3, -2, -5, 1, 2, 3)
val res = Foldable[Stream].foldM(xs.toStream, (0, List[Int]()))(sumUp2)

println(res._2)

小提琴here。

Answer 2

我编写了sumUp2来返回Either[Int, (Int, Int)]：左边是访问的元素的数量，右边是访问的元素的数量和运行总和的对。

type IntOr[A] = Either[Int, A]
val sumUp2: ((Int, Int), Int) => IntOr[(Int, Int)] = (pair, y) => {
  val (size, x) = pair
  val sum = x + y
  println(s"sum = $sum, y = $y")
  if (sum > 0) (size + 1, sum).asRight else size.asLeft 
}

我们知道当sumUp2返回Left时foldM会停止，所以不会对所有元素调用sumUp2：

scala> val r = Foldable[Stream].foldM(xs.toStream, (0, 0))(sumUp2)
sum = 1, y = 1
sum = 3, y = 2
sum = 6, y = 3
sum = 4, y = -2
sum = -1, y = -5
r: IntOr[(Int, Int)] = Left(4)

给定r: Either[Int, (Int, Int)]，我们可以得到尾部：

scala> r match { case Right(_) => Nil; case Left(n) => xs.drop(n) }
res63: List[Int] = List(-5, 1, 2, 3)

这个解决方案似乎工作得很好，但在我看来并不好。你会如何改进它？