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 | Bin 0 -> 20728 bytes comp/work/60/question.hi | Bin 0 -> 776 bytes comp/work/60/question.hs | 18 ++++++++++++++++++ comp/work/60/question.o | Bin 0 -> 8864 bytes comp/work/60/starter | 8 ++++++++ comp/work/60/test | 12 ++++++++++++ 6 files changed, 38 insertions(+) create mode 100755 comp/work/60/question create mode 100644 comp/work/60/question.hi create mode 100644 comp/work/60/question.hs create mode 100644 comp/work/60/question.o create mode 100644 comp/work/60/starter create mode 100644 comp/work/60/test (limited to 'comp/work/60') diff --git a/comp/work/60/question b/comp/work/60/question new file mode 100755 index 0000000..30d3673 Binary files /dev/null and b/comp/work/60/question differ diff --git a/comp/work/60/question.hi b/comp/work/60/question.hi new file mode 100644 index 0000000..ff75cdd Binary files /dev/null and b/comp/work/60/question.hi differ 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) diff --git a/comp/work/60/question.o b/comp/work/60/question.o new file mode 100644 index 0000000..e7de03e Binary files /dev/null and b/comp/work/60/question.o differ diff --git a/comp/work/60/starter b/comp/work/60/starter new file mode 100644 index 0000000..f83dd6a --- /dev/null +++ b/comp/work/60/starter @@ -0,0 +1,8 @@ +call no | arg | ret +1 | [4,2,5,3] | 52 +2 | [2,5,3] | 24 +3 | [5, 3] | 11 +4 | [3] | 3 +5 | [] | 0 + + diff --git a/comp/work/60/test b/comp/work/60/test new file mode 100644 index 0000000..ce8a64c --- /dev/null +++ b/comp/work/60/test @@ -0,0 +1,12 @@ +11.1)1) 192.168.192.1 +11.1)2) 192.168.64.1 +11.1)3) 192.168.64.16 + +11.2) C + +11.3) To avoid running out of avalibe ip addresses, as IPV4 has a "low" limit +comapared to IPV6 + +11.4) star + +11.5) balls -- cgit v1.2.3