Блог

 module PRO where
average1 :: IO Float
avarage1  =
    do
        putStrLn "Enter Marks in Form of a List"
        marks <- getLine
        let m = (read marks)::[Int]
        x<-(sum' (m)) 
        avg <- x/length (m)
        if(x/=[])
           then
                putStrLn ("empty List")
            else
                putStrLn ("Your Avarage is "    show(avg))


sum' :: (Num a) => [a] -> a
sum' xs = foldl (acc x -> acc   x) 0 xs
  

Похоже, моя программа не работает! Мой вопрос в том, почему я не могу назначить avg возвращаемое значение sum sum' функции?

 module PRO where

average1 :: IO ()
average1 =
    do
        putStrLn "Enter Marks in Form of a List"
        marks <- getLine
        let m = (read marks)::[Int]
        let x = sum' m 
        let avg = (fromIntegral x)/(fromIntegral $ length m)
        if(m==[])
            then
                putStrLn ("empty List")
            else
                putStrLn ("Your Avarage is "    (show avg))

sum' :: (Num a) => [a] -> a
sum' xs = foldl (acc x -> acc   x) 0 xs
  

i) Сигнатура типа average1 неверна, функция не возвращает значение

ii) [Редактировать: этот пункт был неверным]

iii) среднее значение имеет значение с плавающей точкой, поэтому вам нужно привести целочисленные аргументы

iv) Ваш тест if (x/=[]) выполнен неверно и должен использовать m не x

v) большинство ваших строк не находятся в IO монаде и поэтому должны использоваться let внутри do блока

Вы не можете использовать <- обозначение для присвоения возвращаемых значений sum' m и x/length m . <- может использоваться только тогда, когда правая часть является монадическим выражением (в данном случае IO значением), которым ни одно из них не является, и поэтому вместо этого вам следует использовать let x = sum' m и let avg = x / fromInteger (length m) ( fromInteger необходимо преобразовать Int возвращаемое length m значение в дробное, чтобы его можно было передать / ). (Кроме того, вам нужно изменить x /= [] на m /= [] .)