How to input an integer in haskell? (input in console)

Question

How can I enter an integer in the console, store it in a variable and then pass it as a parameter of a function that I have created?

So far so that it works I had to do as follows:

In the last line you can see how I have been applying the function, what I want to do is to ask for the variables by console to be applied as integers to the function and then print the result.

    mayor :: Int -> Int -> Double
    mayor x y =
        if  x < y 
        then 0.1
            else 0.3


    compra :: Int -> Int -> Int -> Int -> Int -> Int -> Double
    compra n v u iva p vp =
        let valor_compra = (fromIntegral v) * (fromIntegral n) * (1 - mayor n u)
            valor_iva = valor_compra * (fromIntegral iva) / 100
            valor_puntos = fromIntegral (p * vp)
            efectivo = if (valor_puntos < valor_compra) then valor_compra-valor_puntos else 0
        in  valor_iva + efectivo

    main = do
    print (compra 20 2000 7 14 10 1500)

The way I do it gives me as a result 16920.0

readLn might help.

Ry-
– Ry- ♦

2017-02-13 22:02:35 +00:00
Commented Feb 13, 2017 at 22:02 — Ry-
– Ry- ♦, Commented Feb 13, 2017 at 22:02

Jonathan Portorreal · Accepted Answer · 2017-02-13 22:31:53Z

16

Use getLine or readLn and then parse the input value to the type you need it to be like so :

mayor :: Int -> Int -> Double
mayor x y =
    if  x < y 
    then 0.1
        else 0.3


compra :: Int -> Int -> Int -> Int -> Int -> Int -> Double
compra n v u iva p vp =
    let valor_compra = (fromIntegral v) * (fromIntegral n) * (1 - mayor n u)
        valor_iva = valor_compra * (fromIntegral iva) / 100
        valor_puntos = fromIntegral (p * vp)
        efectivo = if (valor_puntos < valor_compra) then valor_compra-valor_puntos else 0
    in  valor_iva + efectivo

main = do
       putStrLn "enter value for x: "
       input1 <- getLine
       putStrLn "enter value for y: " 
       input2 <- getLine 
       let x = (read input1 :: Int)
       let y = (read input2 :: Int)
       print (compra x y 7 14 10 1500)

edited Feb 13, 2017 at 22:31

answered Feb 13, 2017 at 22:07

Jonathan Portorreal

2,8364 gold badges24 silver badges40 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

delta1020 Over a year ago

Thank you very much, it served me perfect

user2159471 · Accepted Answer · 2018-06-08 04:52:45Z

2

If the integers are entered on same line, we can do something like below. The below program reads two numbers separated by space and prints their sum.

main :: IO()
main = do
    line <- getLine
    let a = (read (takeWhile (/= ' ') line) :: Int)
    let b = (read (drop 1 (dropWhile (/= ' ') line)) :: Int)
    putStrLn (show (a+b))

answered Jun 8, 2018 at 4:52

user2159471

3411 gold badge3 silver badges12 bronze badges

Collectives™ on Stack Overflow

How to input an integer in haskell? (input in console)

2 Answers 2

1 Comment

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related