感谢@ MilesSabin' answer我可以写一个类型级别的Fibonacci序列:
sealed trait Digit
case object Zero extends Digit
case object One extends Digit
sealed trait Dense { type N <: Dense }
sealed trait DNil extends Dense { type N = DNil }
case object DNil extends DNil
final case class ::[+H <: Digit, +T <: Dense](digit: H, tail: T) extends Dense {
type N = digit.type :: tail.N
}
/* The `A`th Fibonacci number is `B` */
trait Fib[A <: Dense, B <: Dense]
object Fib {
implicit val f0 = new Fib[_0, _0] {}
implicit val f1 = new Fib[_1, _1] {}
implicit def f2[A <: Dense, P <: Dense, P2 <: Dense, F <: Dense, F2 <: Dense]
(implicit p: Pred.Aux[A, P],
p2: Pred.Aux[P, P2],
f: Fib[P, F],
f2: Fib[P2, F2],
sum: Sum[F, F2]): Fib[A, sum.Out] = new Fib[A, sum.Out] {}
}
implicitly[Fib[_7, _13]]
我真正希望能够为Witness
获取Dense
并使用它:
def apply[Out <: Dense](n: Dense)(implicit f:Fib[n.N, Out], w:Witness.Aux[Out]): Out
= w.value
Scala告诉我,它无法召唤Witness
个实例。我猜这是因为我对自然数的类型级编码是一个链的列表,而不是单例类型。我无法理解为什么Witness
无法工作,因为像_7
这样的班级只有一个居民。
我尝试做的是为只有一个可能值的类型实现一个值。这样我就可以直接从Out
获得apply
。
我认为可能的解决方案可能会利用隐式宏。
欢迎任何和所有想法。如果问题不清楚,我建议你留言。