Adivina el número del 1 al 100 y muestra cuantos intentos has hecho. En lenguaje Haskell
Publicado por Brenda Cap (1 intervención) el 11/03/2022 07:46:05
tengo este programa en haskell que adivina un numero del 1 al 100, el juego1 la computadora adivina el numero que pensó el usuario. Ahora bien, quisiera saber como hacer para mostrar el numero de intentos que le tomo adivinar a la computadora.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
import System.IOimport System.Random (randomRIO)
juego1 :: IO ()
juego1 = do putStrLn "Piensa un numero entre el 1 y el 100."adivina 1 100
putStrLn "Fin del juego"adivina :: Int -> Int -> IO ()
adivina a b =do putStr ("Es " ++ show conjetura ++ "? [mayor/menor/exacto] ")
s <- getLine
case s of
"mayor" -> adivina (conjetura+1) b
"menor" -> adivina a (conjetura-1)
"exacto" -> return ()
_ -> adivina a b
where
conjetura = (a+b) `div` 2
Valora esta pregunta
0