1

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.

2 respuestas 2

1

Hay una solución más directa:

import Data.List (partition) 

paresImpares :: Integral a => [a] -> ([a],[a])
paresImpares = partition even
5
  • LLevas razón, el problema de estos ejercicios es que aun tengo que hacerlos con un nivel básico en Haskell por lo que digamos que no puedo hacer "trampa" usando librerias aparte como este "partition". De todos modos gracias ! Espero tus respuestas en mis futuras preguntas en Haskell
    – Ramosaurio
    el 14 oct. 2016 a las 8:59
  • Bueno, no sé si llamarlo "trampa". En el enunciado no se indica el modo de resolver el problema. Este tipo de problemas, donde se trata de separar los elementos que cumplen una condición de los que no, se conocen como "particiones". De ahí que buscando un poco no sea dificil encontrar en un módulo tan común como Data.List. el 14 oct. 2016 a las 17:07
  • Es decir vaya con "trampa" me refiero, que son ejercicios de la facultad y no se me permite usar otras librerias ,debería de haberlo especificado en el enunciado, muchas gracias
    – Ramosaurio
    el 15 oct. 2016 a las 10:38
  • Me parece más conveniente evitar en lo más posible llamara librerías externas, a no ser que sea absolutamente necesario. Esto complica sobre todo a programadores inexpertos. el 3 sep. a las 0:15
  • Data.List es parte del paquete base perteneciente a la especificación del lenguaje (Haskell 2010 report). No entiendo porqué hay que evitar su uso si no se especifica nada en el enunciado sobre cómo resolver el problema. el 3 sep. a las 1:43
0

Bueno he encontrado una respuesta:

paresImpares :: Integral a => [a] -> ([a],[a])
paresImpares [] = ([],[])
paresImpares (x:xs)
| x `mod` 2 == 0 = (x:pares,impares)
| otherwise = (pares, x:impares)
where (pares,impares) = paresImpares xs

Esto funciona perfectamente xmod2 se puede sustituir por even

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.