Estuve revisando tu código y vi que tienes algunos errores y no precisamente con tu función cab
, primeramente necesitas una condición de parada para tu recursividad en el método todasLasCabezas, lo resolví de esta forma:
todasLasCabezas (x:y) = if length y == 0 then [cab(x)] else cab(x) : todasLasCabezas(y)
Si te das cuenta cuando llegamos al final de la lista y
que es la cola estará vacío, por lo que compara si su longitud es 0, en ese caso solo hago [cab(x)]
(los corchetes es para convertirlo a tipo [Int] que es lo que retorna el método), en caso contrario obtengo la cabecera y añado la siguiente: cab(x) : todasLasCabezas(y)
.
Para todasLasColas es necesario hacer lo mismo, verificar que z
no esté vacío, cuando está vacío terminamos la recursividad haciendo [v]
:
todasLasColas ((u:v):z) = if length z /= 0 then v : todasLasColas(z) else [v]
Y la parte más importante está en tu función "principal" darVueltaLista, si te das cuenta en tu código la función se manda a llamar una y otra vez sin ninguna esperanza de que se detenga, aquí lo que hice fue comparar que x
(cabecera de la lista) tenga un tamaño mayor a 1, en ese caso puedes llamar a ambas funciones y repetir el proceso. Sólo cuando su tamaño es menor únicamente llamamos a todasLasCabezas.
Código
cab :: [Int] -> Int
cab (x:y) = x
todasLasCabezas :: [[Int]] -> [Int]
todasLasCabezas (x:y) = if length y == 0 then [cab(x)] else cab(x) : todasLasCabezas(y)
todasLasColas :: [[Int]] -> [[Int]]
todasLasColas ((u:v):z) = if length z /= 0 then v : todasLasColas(z) else [v]
darVueltaLista :: [[Int]] -> [[Int]]
darVueltaLista (x:y) = if length x > 1 then todasLasCabezas(x:y) : darVueltaLista(todasLasColas(x:y)) else [todasLasCabezas(x:y)]
main = do
print (darVueltaLista [[2,8,14],[3,9,15],[4,10,16]])
Te recomiendo leer este Libro de haskell tiene temas muy buenos, no se mucho de Haskell pero espero haberte ayudado, saludos.