temps = [50, 68, 95, 86] fu a = (a - 32) * 5 / 9 fv b = map fu b fw [] = 0 fw (x:xs) = 1 + fw (xs) fx [] = 0 fx (x:xs) = x + fx (xs) fy c = fx(c) / fw(c) fz d = fy(fv(d)) main = do print (fz temps)