Question

我正在尝试通过改进（和无形）来探索改进类型检查的可能性。

我想用类型来表示间隔或大小的一些约束。

所以，通过精炼，我可以写出类似的东西：

type Name = NonEmpty And MaxSize[_32]
type Driver = Greater[_15]

case class Employee(name : String @@ Name, age : Int @@ Driver = refineLit[Driver](18))

但是，我想用更大的自然物来表达对比。

type BigNumber = Greater[_1000]

这个没有用，因为_1000没有定义。已定义的最后一个是_22 我可以用无形的Succ制作自己的，但它非常麻烦。

示例：

type _25 = Succ[Succ[Succ[_22]]]
type _30 = Succ[Succ[Succ[Succ[Succ[_25]]]]]
type _40 = Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[_30]]]]]]]]]]
type _50 = Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[_40]]]]]]]]]]
type _60 = Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[_50]]]]]]]]]]
type _70 = Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[_60]]]]]]]]]]
type _80 = Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[_70]]]]]]]]]]
type _90 = Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[_80]]]]]]]]]]
type _100 = Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[Succ[_90]]]]]]]]]]
// etc.

是否有更好的方式表达此类约束，或以更有效的方式制作_1000？有什么我会错过的吗？

修改：

我尝试过Travis命题：

val thousand = shapeless.nat(1000)

但是这一行在编译时导致StackOverflowError（在宏扩展时）如果我尝试使用较少的数字，那就没关系。

val limit = shapeless.nat(50)
type BigNumber = Greater[limit.N]

case class TestBigNumber(limit : Int @@ BigNumber)

在我的环境中，对于大于400的数字，会引发StackOverflowError。

此外，使用此代码，编译永远不会结束（使用sbt）：

val n_25 = shapeless.nat(25)
type _25 = n_25.N

val n_32 = shapeless.nat(32)
type _32 = n_32.N

val n_64 = shapeless.nat(64)
type _64 = n_64.N

Answer 1

refined中的Greater谓词支持Shapeless的类型级自然数（Nat）和整数单例类型（由Shapeless的Witness提供）。所以以下约束做同样的事情：

import eu.timepit.refined.implicits._
import eu.timepit.refined.numeric._
import shapeless.{ Nat, Witness }
import shapeless.tag.@@

val a: Int @@ Greater[Nat._10] = 11
val b: Int @@ Greater[Witness.`10`.T] = 11

由于表示Nat和整数单例类型的方式，后者不太可能使编译器溢出堆栈。例如，以下内容适用于我的机器：

scala> val c: Int @@ Greater[Witness.`10000`.T] = 10001
c: shapeless.tag.@@[Int,eu.timepit.refined.numeric.Greater[Int(10000)]] = 10001

尽管10000已远远超过shapeless.nat(10000)开始堆叠溢出的点。

作为脚注，可以对大于22的值使用Nat表示，而不必大量输入Succ：

val hundred = shapeless.nat(100)
val c: Int @@ Greater[hundred.N] = 101

尽管如此，这仍然会导致堆栈的大值，所以整数单例类型是你的情况。

如何使用精炼来表达具有常数的约束＆gt; 22

1 个答案: