1 files changed, 18 insertions, 0 deletions
diff --git a/comp/work/60/question.hs b/comp/work/60/question.hs
new file mode 100644
index 0000000..b8970a7
--- /dev/null
+++ b/comp/work/60/question.hs
@@ -0,0 +1,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)