<div dir="ltr">Hello,<div><br></div>this works too:<div><br></div><div>​meanList :: (Fractional a) => [a] -> a</div><div>meanList xs = (sumList xs) / (lengthList xs)</div><div><br></div><div><br></div><div>sumList :: (Fractional a) => [a] -> a</div><div>sumList [] = 0</div><div>sumList (x:xs) = x + (sumList xs)</div><div><br></div><div><br></div><div>lengthList :: (Fractional a) => [t] -> a</div><div>lengthList [] = 0</div><div>lengthList (_:xs) = 1 + (lengthList xs)</div></div>