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

JaAViEr · Julio 17, 2011, 03:32:32 AM

Bueno, nada del otro mundo , pero como hay poco code Haskell
es bueno publicarlo aunque nadie comente u_u

Código: haskell


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))

La forma que lo hice es diferente. No usé el "X mod 2 == 0"
Solo obtuve los impares del 1 al 100 y luego sumandole 1( con map(+1) ) a
cada elemento, lógicamente quedan los pares...
De todas formas, si alguien busca como sacar los pares de la manera "limpia"

Código: haskell


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

Saludos.

Mavis · Julio 17, 2011, 03:34:36 AM

Excelente iniciación con Haskell compañero, sigue así!

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

JaAViEr

Julio 17, 2011, 03:32:32 AM Ultima modificación: Febrero 08, 2014, 05:34:37 PM por Expermicid

Mavis

Julio 17, 2011, 03:34:36 AM #1