[Código-Haskell] Números Pares & Impares - JaAViEr

import Data.List
impares :: ([Int])
impares = do
  let numbers = [1..100]
  [c| c <- numbers, odd c]
main = do
  let salida_pares=map(+1)impares
  putStrLn("Pares:"++show(salida_pares))
  let salida_impares=impares
  putStrLn("Impares:"++show(salida_impares))

import Data.List
pares = do
  let numeros=[1..100]
  [pares | pares <- numeros, pares `mod` 2 == 0]
main = do
  let pares_salida = pares
  print pares_salida