scala - 在元组中使用 FirstOption monoid 实例

Question

是否可以转换(Option[Int], Option[String])为(FirstOption[Int], FirstOption[String])? 比x=> (x._1.first, x._2.first)?

在我看来，应该有办法做到这一点，但我找不到它。

Answer 1

一种方法可能是使用 Bifunctor 实例：

scala> val t = (Option(1), Option("str"))
t: (Option[Int], Option[java.lang.String]) = (Some(1),Some(str))

scala> import scalaz._, Scalaz._, Tags._
import scalaz._
import Scalaz._
import Tags._

scala> t.bimap(First, First)
res0: (scalaz.package.@@[Option[Int],scalaz.Tags.First], scalaz.package.@@[Option[java.lang.String],scalaz.Tags.First]) = (Some(1),Some(str))

一种更惯用的方式（好吧，一种更通用的方式：适用于任何元组、三元组等）可能是使用 shapeless将您的元组转换为HList，然后应用自然转换Option[A] ~> Option[A] @@ First。这是一个粗略的实现：

scala> import scalaz._, Scalaz._, Tags._
import scalaz._
import Scalaz._
import Tags._

scala> import shapeless._, Tuples._, Nat._
import shapeless._
import Tuples._
import Nat._

scala> val t = (Option(1), Option("str"))
t: (Option[Int], Option[String]) = (Some(1),Some(str))

scala> object optionToFirstoption extends (Option ~> FirstOption) {
     |   def apply[A](fa: Option[A]): Option[A] @@ First = First(fa)
     | }
defined module optionToFirstoption

scala> t.hlisted.map(optionToFirstoption).tupled
res1: (Option[Int] with scalaz.Tagged[scalaz.Tags.First], Option[String] with scalaz.Tagged[scalaz.Tags.First]) = (Some(1),Some(str))