Tengo la siguiente función:
ParesImpares:: [Integer] -> ([Integer],[Integer])
Tengo que sacar de una lista los pares e impares:
ParesImpares [3,2,4,5,7]
-> ([2,4],[3,5,7])
Mi código hasta ahora es el siguiente:
paresImpares :: [Integer] -> ([Integer],[Integer])
paresImpares [] = ([],[])
paresImpares [x]
| x `mod` 2 == 0 = ([x],[])
| otherwise = ([],[x])
Tengo definido un caso base, pero la verdad es que no se como seguir. Tenía pensado algo como:
ParesImpares(x:xs) = ParesImpares [x]
Pero claro, sólo me evalúa el primer elemento de la lista.