Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

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

  • 1 Respuestas
  • 2945 Vistas

0 Usuarios y 2 Visitantes 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
« 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 »

Desconectado LucaSthefano

  • *
  • Underc0der
  • Mensajes: 399
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« Respuesta #1 en: Julio 17, 2011, 03:34:36 am »
Excelente iniciación con Haskell compañero, sigue así!

 

¿Te gustó el post? COMPARTILO!



Reto de Programacion [Separar Letras de Numeros]

Iniciado por Expermicid

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

Iniciado por Snifer

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

Iniciado por Sanko

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

Iniciado por Sanko

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

Iniciado por Sanko

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