Int Enumerator

gistfile1.scala

  import scalaz._, Scalaz._
  import IterV._

  // something to generate a stream that will be enough to blow the stack....
  def ints[A]: (Int, Int) => IterV[Int, A] => IterV[Int, A] = (start, end) => iter => {
    def loop(s: Int, i: IterV[Int, A]): IterV[Int, A] = i match {
      case Done(_, _) => i
      case Cont(k) =>
        if (s > end)
          i
        else
          loop(s + 1, k(El(s)))
    }
    loop(start, iter)
  }