1votos

Sol o Aguila en Haskell

por josejuan hace 4 años

.

Resolver según los criterios planteados en lenguaje haskell

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
import Control.Applicative 
 
main = do 
    n <- readLn 
    c <- (sum . map read . words) <$> getLine 
    putStrLn $  "Mary won " ++ show (n - c) ++ " times and Carlos won " ++ show c ++ " times" 
 
{- 
 
    $ cat m.txt 
    10 
    1 0 1 1 1 0 0 0 1 1 
    $ runghc mary.hs < m.txt 
    Mary won 4 times and Carlos won 6 times 
     
-} 
1 comentario
0votos

Escrito por Pedro Romero hace 3 años

Solucionado!
Yo había planteado el problema haciendo que en una lista el usuario ingresara los juegos es decir [1,0,1,1,0] por ejemplo, entonces recorrer la lista usando 2 listas intencionales y comparando los valores con 1 y 0 respectivamente para luego sacar la longitud y desplegar esos resultados.
Adjunto aquí mismo el código correspondiente (ojo esta trabajado sobre leksah):

module Main (
main
) where

main = do

putStrLn "Introduce una lista con los resultados (Unos y ceros

separados por coma)"
lista <- leer
putStrLn ("Mary won "++(show (mary lista))++" times and carlos won "+

(show (carlos lista))+" times")
getChar


leer :: IO [Int]
leer = do readLn

--sacar numeros 0 de la lista
mary xs = length[x | x <- xs, x == 0]

--sacar numeros 1 de la lista
carlos xs = length [x | x <- xs, x == 1]



Bien hecho! posteriormente colocare mas desafíos de haskell :)

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.