scalaprops.Variant.scala Maven / Gradle / Ivy

Go to download
package scalaprops

import java.util.WeakHashMap
import scalaz.Maybe

object Variant {

  private[this] final case class LongGen[A](n: Long, state: CogenState[A])

  private[this] val variantMemo: VariantCache[LongGen, CogenState] =
    new VariantCache[LongGen, CogenState]

  def variantInt[A](n: Int, g: CogenState[A]): CogenState[A] =
    variant(n, g)

  def variant[A](n: Long, g: CogenState[A]): CogenState[A] = {
    val (next, int) = g.rand.nextInt
    val seed = n + int
    val p = new LongGen(seed, g)
    variantMemo.get(p) match {
      case Maybe.Empty() =>
        val t = CogenState(next, Gen.gen((i, r) => g.gen.f(i, r.reseed(seed))))
        variantMemo.put(p, t)
        t
      case Maybe.Just(gx) =>
        gx
    }
  }

  private[this] final class VariantCache[K[_], V[_]](delegate: WeakHashMap[Any, Any] = new WeakHashMap[Any, Any]) {
    def put[A](k: K[A], v: V[A]): this.type = {
      delegate.put(k, v)
      this
    }

    def get[A](k: K[A]): Maybe[V[A]] =
      Maybe.fromNullable(delegate.get(k).asInstanceOf[V[A]])
  }

}