9
La siguiente blog article muestra cómo en F # foldBack se puede hacer la cola recursiva usando el estilo de continuación de paso.¿Es posible usar continuaciones para hacer que foldRight tail recursive?
En Scala, esto significaría que:
def foldBack[T,U](l: List[T], acc: U)(f: (T, U) => U): U = {
l match {
case x :: xs => f(x, foldBack(xs, acc)(f))
case Nil => acc
}
}
se pueden hacer cola recursiva al hacer esto:
def foldCont[T,U](list: List[T], acc: U)(f: (T, U) => U): U = {
@annotation.tailrec
def loop(l: List[T], k: (U) => U): U = {
l match {
case x :: xs => loop(xs, (racc => k(f(x, racc))))
case Nil => k(acc)
}
}
loop(list, u => u)
}
Por desgracia, sigo teniendo un desbordamiento de pila de largas listas. loop es recursivo y optimizado, pero supongo que la acumulación de pila acaba de pasar a las llamadas de continuación.
¿Por qué no es un problema con F #? ¿Y hay alguna forma de solucionar esto con Scala?
Edición: aquí un código que muestra la profundidad de la pila:
def showDepth(s: Any) {
println(s.toString + ": " + (new Exception).getStackTrace.size)
}
def foldCont[T,U](list: List[T], acc: U)(f: (T, U) => U): U = {
@annotation.tailrec
def loop(l: List[T], k: (U) => U): U = {
showDepth("loop")
l match {
case x :: xs => loop(xs, (racc => { showDepth("k"); k(f(x, racc)) }))
case Nil => k(acc)
}
}
loop(list, u => u)
}
foldCont(List.fill(10)(1), 0)(_ + _)
Esta impresora:
loop: 50
loop: 50
loop: 50
loop: 50
loop: 50
loop: 50
loop: 50
loop: 50
loop: 50
loop: 50
loop: 50
k: 51
k: 52
k: 53
k: 54
k: 55
k: 56
k: 57
k: 58
k: 59
k: 60
res2: Int = 10
No tiene sentido. ¿Tienes un caso de prueba simple? –
@ DanielC.Sobral, vea el código que agregué y que imprime. – huynhjl