3. [Código-Haskell] Números Pares & Impares - JaAViEr
Páginas: [1]   Ir Abajo
« anterior próximo »

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

  • 1 Respuestas
  • 3339 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

  • 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 »
 

Reto de Programacion [Separar Letras de Numeros]

Iniciado por Expermicid

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

Iniciado por Snifer

 Respuestas: 0
Vistas: 3233 		Último mensaje Julio 23, 2011, 07:19:34 pm
por Snifer
Cifrado cesar - haskell

Iniciado por Sanko

 Respuestas: 0
Vistas: 3683 		Último mensaje Febrero 26, 2014, 02:29:05 pm
por Sanko
Cifrado Vigenere - Haskell

Iniciado por Sanko

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

Iniciado por Sanko

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