>>151
ave :: [Float] -> Float
ave (x:xs) = (sum (x:xs)) / (fromIntegral (length (x:xs))) -- length -> Int, which is not fractional
このようになりました