comp/work/60/question.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

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)