3. [Código-Haskell] Números Pares & Impares - JaAViEr
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.
« anterior próximo »
Páginas: [1]   Ir Abajo

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

  • 1 Respuestas
  • 2319 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado JaAViEr

  • *
  • Underc0der
  • Mensajes: 163
  • Actividad:
    0%
  • Reputación 0
  • http://codigo.ga
    • Ver Perfil
    • Blog de Programación :: Python

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

« en: 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
  1. import Data.List
  2. impares :: ([Int])
  3. impares = do
  4.   let numbers = [1..100]
  5.   [c| c <- numbers, odd c]
  6. main = do
  7.   let salida_pares=map(+1)impares
  8.   putStrLn("Pares:"++show(salida_pares))
  9.   let salida_impares=impares
  10.   putStrLn("Impares:"++show(salida_impares))
  11.  
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
  1. import Data.List
  2. pares = do
  3.   let numeros=[1..100]
  4.   [pares | pares <- numeros, pares `mod` 2 == 0]
  5. main = do
  6.   let pares_salida = pares
  7.   print pares_salida
  8.  

Saludos.
« Última modificación: Febrero 08, 2014, 05:34:37 pm por Expermicid »
En línea

Desconectado LucaSthefano

  • *
  • Underc0der
  • Mensajes: 399
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
Re:[Código-Haskell]Números Pares & Impares - JaAViEr
« Respuesta #1 en: Julio 17, 2011, 03:34:36 am »
Excelente iniciación con Haskell compañero, sigue así!
En línea
Páginas: [1]   Ir Arriba
« anterior próximo »
 

¿Te gustó el post? COMPARTILO!



Reto de Programacion [Separar Letras de Numeros]

Iniciado por Expermicid

 Respuestas: 5
Vistas: 6971 		Último mensaje Septiembre 19, 2012, 03:00:31 am
por Snap
[Haskell] Compilador de Pseudocodigo Pascal,C++,Java

Iniciado por Snifer

 Respuestas: 0
Vistas: 2534 		Último mensaje Julio 23, 2011, 07:19:34 pm
por Snifer
Cifrado Vigenere - Haskell

Iniciado por Sanko

 Respuestas: 0
Vistas: 2306 		Último mensaje Febrero 26, 2014, 02:28:29 pm
por Sanko
Cifrado cesar - haskell

Iniciado por Sanko

 Respuestas: 0
Vistas: 2797 		Último mensaje Febrero 26, 2014, 02:29:05 pm
por Sanko
sReplace - Haskell

Iniciado por Sanko

 Respuestas: 0
Vistas: 1844 		Último mensaje Febrero 26, 2014, 02:28:07 pm
por Sanko