
22 Sep
2016
22 Sep
'16
10:06 a.m.
Hello, this works too: meanList :: (Fractional a) => [a] -> a meanList xs = (sumList xs) / (lengthList xs) sumList :: (Fractional a) => [a] -> a sumList [] = 0 sumList (x:xs) = x + (sumList xs) lengthList :: (Fractional a) => [t] -> a lengthList [] = 0 lengthList (_:xs) = 1 + (lengthList xs)