From e86ecba94bd7f1c7fa0f8583d84468293ae936a2 Mon Sep 17 00:00:00 2001 From: thing1 Date: Sun, 22 Jun 2025 19:23:30 +0100 Subject: many things, final commit --- comp/work/60/question.hs | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 comp/work/60/question.hs (limited to 'comp/work/60/question.hs') 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) -- cgit v1.2.3