So I've been learning Haskell on my own from a site I saw here, but I didn't get so far and I already have an assignment ><
This is one of the questions :
I need to do a real live average calculator (I.e put in a number and then add it to a list, show the average, prompt user to input another one, show the average, etc)

I did this:




It won't run, the code is probably the most inefficient thing you've ever seen, but I just can't figure this language out.

If anyone is familiar and good with Haskell plz plz let me know I REALLY need help with this assignment...

it's like you haven't even tried using google...

.... I have...

/e codes there are retarded... I need a simple (maybe inefficient) code that I can understand.

This post was edited by IsraeliSoldier on Jul 11 2012 07:38pm

print welcome message
begin loop
print ask user for input
add input to array
print do_calc(array)
start loop over

Here is your code rewritten to run



calculateAvrg x
| len <= 10 = putStrLn ("The average is " ++ (show avg))
| otherwise = putStrLn ("We are done!")
where len = (length x)
avg = ((sum x) `div` (length x))

main = do
putStrLn "Hello, please enter a number and I will calculate the average: "

putStrLn "1."
input <- getLine
let i = (read input :: Int)
let a = i:[]
calculateAvrg a

putStrLn "2. "
input <- getLine
let i = (read input :: Int)
let b = i:a
calculateAvrg b

putStrLn "3. "
input <- getLine
let i = (read input :: Int)
let c = i:b
calculateAvrg c

putStrLn "4. "
input <- getLine
let i = (read input :: Int)
let d = i:c
calculateAvrg d

putStrLn "5. "
input <- getLine
let i = (read input :: Int)
let e = i:d
calculateAvrg e

putStrLn "6. "
input <- getLine
let i = (read input :: Int)
let f = i:e
calculateAvrg f

putStrLn "7. "
input <- getLine
let i = (read input :: Int)
let g = i:f
calculateAvrg g

putStrLn "8. "
input <- getLine
let i = (read input :: Int)
let h = i:g
calculateAvrg h

putStrLn "9. "
input <- getLine
let i = (read input :: Int)
let i' = i:h
calculateAvrg i'

putStrLn "10. "
input <- getLine
let i = (read input :: Int)
let j = i:i'
calculateAvrg j