4

感谢https://github.com/milessabin/shapeless/wiki/Feature-overview:-shapeless-2.0.0我了解如何压缩无形 HLists：

从 Shapeless 2.0.0-M1 导入一些东西：

import shapeless._
import shapeless.ops.hlist._
import syntax.std.tuple._
import Zipper._

创建两个 HList：

scala> val h1 = 5 :: "a" :: HNil
h1: shapeless.::[Int,shapeless.::[String,shapeless.HNil]] = 5 :: a :: HNil

scala> val h2 = 6 :: "b" :: HNil
h2: shapeless.::[Int,shapeless.::[String,shapeless.HNil]] = 6 :: b :: HNil

压缩它们：

scala> (h1, h2).zip
res52: ((Int, Int), (String, String)) = ((5,6),(a,b))

现在尝试定义一个做同样事情的函数：

scala> def f[HL <: HList](h1: HL, h2: HL) = (h1, h2).zip
f: [HL <: shapeless.HList](h1: HL, h2: HL)Unit

推断的返回类型是 Unit，实际上将 f 应用于 h1 和 h2 就是这样做的：

scala> f(h1, h2)

scala>

有没有办法定义 f 以便在这种情况下得到 ((5,6),(a,b)) ？

最终，我要做的是定义一个函数，它压缩两个 HList，然后映射它们，选择 _1 或 _2 基于抛硬币，这将产生另一个 HL。

object mix extends Poly1 {
  implicit def caseTuple[T] = at[(T, T)](t =>
    if (util.Random.nextBoolean) t._2 else t._1)
}

在 REPL 中运行良好：

scala> (h1, h2).zip.map(mix)
res2: (Int, String) = (5,b)

但是当我试图把它拉到一个函数中时，我被上述问题绊倒了。

谢谢！

4

2 回答 2

7

Zip您可以使用（或在这种情况下Zip.Aux）类型类将所有内容包装在一种方法中：

import shapeless._, shapeless.ops.hlist._

object mix extends Poly1 {
  implicit def caseTuple[T] = at[(T, T)](t =>
    if (util.Random.nextBoolean) t._2 else t._1)
}

def zipAndMix[L <: HList, Z <: HList](h1: L, h2: L)(implicit
  zipper: Zip.Aux[L :: L :: HNil, Z],
  mapper: Mapper[mix.type, Z]
) = (h1 zip h2) map mix

现在假设你已经定义了问题，你可以这样写h1：h2

scala> zipAndMix(h1, h2)
res0: shapeless.::[Int,shapeless.::[String,shapeless.HNil]] = 5 :: b :: HNil

scala> zipAndMix(h1, h2)
res1: shapeless.::[Int,shapeless.::[String,shapeless.HNil]] = 6 :: a :: HNil

scala> zipAndMix(h1, h2)
res2: shapeless.::[Int,shapeless.::[String,shapeless.HNil]] = 5 :: a :: HNil

等等。这将适用于 2.0.0-M1 或最新快照，尽管（正如我在上面的评论中指出的那样）您可能会在修复此错误之前遇到令人困惑的问题。

于 2013-12-08T10:07:00.310 回答
2

鉴于编译器错误和一些仔细阅读 hlist.scala 中的测试，zip 是这样定义的：

def f[L <: HList, OutT <: HList](l : L)(
  implicit transposer : Transposer.Aux[L, OutT],
           mapper : Mapper[tupled.type, OutT]) = l.transpose.map(tupled)

my 的应用mix可以这样定义：

def g[L <: HList](l : L)(
  implicit mapper: Mapper[mix.type,L]) = l.map(mix)

该组合物符合我的要求：

scala> g(f(h1 :: h2 :: HNil))
res12: shapeless.::[Int,shapeless.::[String,shapeless.HNil]] = 5 :: b :: HNil

scala> g(f(h1 :: h2 :: HNil))
res13: shapeless.::[Int,shapeless.::[String,shapeless.HNil]] = 6 :: a :: HNil

scala> g(f(h1 :: h2 :: HNil))
res14: shapeless.::[Int,shapeless.::[String,shapeless.HNil]] = 6 :: b :: HNil
于 2013-12-08T09:27:06.793 回答