映射到函数内的 HList

Question

下面的代码看起来很明显，可以编译和运行

case class Pair(a: String, b: Int)

val pairGen = Generic[Pair]

object size extends Poly1 {
  implicit def caseInt = at[Int](x => 1)
  implicit def caseString = at[String](_.length)
}

def funrun(p: Pair) = { 
  val hp: HList = pairGen.to(p)
  hp.map(size)
}

但是编译器说“找不到参数映射器的隐式值”。在我的用例中，我想映射一个 HList 以获取 String(s) 的 HList，然后将 String(s) 的 HList 转换为 Scala List[String]。有任何想法吗？

Answer 1

首先，我们可以创建一个类似于size 的Poly1，我们可以使用它来将HList 映射到Strings 的HList。

object strings extends Poly1 {
  implicit def caseInt = at[Int](_.toString)
  implicit def caseString = at[String](identity)
}

您已经使用Generic[Pair] 将Pair 转换为HList，但您无法映射您的hp，因为您的funrun 中没有证据表明您可以映射它。我们可以通过使用隐式参数来解决这个问题。

def funRun[L <: HList, M <: HList](
  p: Pair
)(implicit
  gen: Generic.Aux[Pair, L],
  mapper: Mapper.Aux[strings.type, L, M]
) = gen.to(p).map(strings)

• 我们的第一个隐式参数gen 可以将Pair 变成HList L 类型。
• 我们的第二个隐式参数mapper 可以使用我们的strings 多态函数将HList 类型的L 映射到HList 类型的M。

我们现在可以使用funRun 将Pair 变成HList 的Strings：

scala> funRun(Pair("abc", 12))
res1: shapeless.::[String,shapeless.::[String,shapeless.HNil]] = abc :: 12 :: HNil

但您想返回 List[String]。要将我们的HListM（映射到String的结果）转换为List[String]，我们需要一个ToTraversable，因此我们添加了第三个隐式参数：

import shapeless._, ops.hlist._

def pairToStrings[L <: HList, M <: HList](
  p: Pair
)(implicit
  gen: Generic.Aux[Pair, L],
  mapper: Mapper.Aux[strings.type, L, M],
  trav: ToTraversable.Aux[M,List,String]
): List[String] = gen.to(p).map(strings).toList

我们可以用作：

scala> pairToStrings(Pair("abc", 12))
res2: List[String] = List(abc, 12)