Haskell ошибки разбора, для усреднения программы

Question

мне нужно, чтобы получить среднее значение, поэтому вход останавливается до тех пор, пока пользователь не вводит в отрицательном числе, а затем выход среднего

{ 
    getFloat :: IO Float 
    getFloat = do line <- getLine 
        return (read line:: Float) 


    average :: IO Float 
    average = helper summ n 
        where 
        helper :: Float->Float->IO Float 
        helper summ n = do val<-getFloat 
             if (val<0) 
              then (return average) 
              else (do summ = summ + val 
                n = n+1 
                average= summ/n 
                average) 
                 } 

Answer 1

Это лучше отделить чистые и нечистые вычисления , I.e., average может быть только [a] -> b без эффектов ввода-вывода.

main = print =<< average `fmap` go [] 
    where 
    go :: [Int] -> IO [Int] 
    go xs = do 
     x <- (read :: String -> Int) `fmap` getLine 
     if x < 0 then return (x : xs) else go (x : xs) 

    average :: [Int] -> Float 
    average xs = (fromIntegral $ sum xs)/(fromIntegral $ length xs) 

---

Это не самое лучшее решение, кстати:

• readLn :: Read a => IO a
• среднее значение может быть получить легче, не пересекая List дважды

Answer 2

Попробуйте что-нибудь например:

main = do (s,n) <- getnums 
      putStrLn $ show $ s/(fromIntegral n) 

getnums :: IO (Float, Int) 
getnums = go 0.0 0 
    where go s n = do line <- getLine 
        let f = read line :: Float 
        if f < 0 then return (s,n) 
          else go (s+f) (n+1)