可使用 scalaz Arrow 进行组合？

Question

我有两个功能。

  def process(date: DateTime, invoice: Invoice, user: User, reference: Reference) : (Action, Iterable[Billable])

  def applyDiscount(billable: Billable) : Billable

我怎样才能组合这些，以便我拥有 (DateTime, Invoice, User, Reference) => 的单个函数？ (Action, Iterable[Billable])

这是我想要的穷人的方式

  def buildFromInvoice(user: User, order: Invoice, placementDate: DateTime, reference: Reference) = {
    val ab = billableBuilder.fromInvoice(user, order, placementDate, reference)
    (ab._1, ab._2.map(applyDiscount(_))
  }

Answer 1

你所拥有的（简化的）是：

val f: A => (B, M[C]) //M is a Functor
val g: C => C

我可以想出几种方法来做到这一点。我认为我的偏好是：

(a: A) => g.lift[M].second apply f(a)

或者也：

(a: A) => f(a) :-> g.lift[M]  

但是，可能有一种pointfree方式 - 尽管不一定如此，当然

• lift是Function1W上的一种方法code> 将函数提升到仿函数的领域 M
• second 是 MAB 上的一个方法，它将函数应用到 Bifunctor 的右侧
• :-> 是 Bifunctors 可用的方法，表示函数在 rhs 上的应用。

编辑 - missingfaktor 似乎是正确的说法 f andThen g.lift[M].second 有效：

scala> import scalaz._; import Scalaz._
import scalaz._
import Scalaz._

scala> case class A(); case class B(); case class C()
defined class A
defined class B
defined class C

scala> lazy val f: A => (B, List[C]) = sys.error("")
f: A => (B, List[C]) = <lazy>

scala> lazy val g: C => C = sys.error("")
g: C => C = <lazy>

Pointfree：

scala> lazy val h = f andThen g.lift[List].second
h: A => (B, List[C]) = <lazy>