diff options
| author | thing1 <thing1@seacrossedlovers.xyz> | 2025-06-22 19:23:30 +0100 |
|---|---|---|
| committer | thing1 <thing1@seacrossedlovers.xyz> | 2025-06-22 19:23:30 +0100 |
| commit | e86ecba94bd7f1c7fa0f8583d84468293ae936a2 (patch) | |
| tree | 6ac636391283befc1c641130d95c8ca8ab84c881 /comp/work/60/question.hs | |
| parent | 10d3793dd58f5c85e9a1be331afc3a08922c0f38 (diff) | |
Diffstat (limited to 'comp/work/60/question.hs')
| -rw-r--r-- | comp/work/60/question.hs | 18 |
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) |