InfiniteList

gistfile1.scala

object InfiList{
  def cons[A](x:A,f:(A)=>A) = {
    new InfiList(x,f)
  }
}

class InfiList[A](val init:A,gen: A=>A) {
  var c:A = init
  def next() = {
    c = gen(c)
    c
  }
}
>> defined module InfiList
>> defined class InfiList
def g(x:Int) = x+1
>> g: (x: Int)Int
val z = InfiList.cons(0,g)
>> z: InfiList[Int] = InfiList@be9fc1
z.next
>> res0: Int = 1
z.next
>> res1: Int = 2
z.next
>> res2: Int = 3