diff options
Diffstat (limited to 'comp/work/60')
-rwxr-xr-x | comp/work/60/question | bin | 0 -> 20728 bytes | |||
-rw-r--r-- | comp/work/60/question.hi | bin | 0 -> 776 bytes | |||
-rw-r--r-- | comp/work/60/question.hs | 18 | ||||
-rw-r--r-- | comp/work/60/question.o | bin | 0 -> 8864 bytes | |||
-rw-r--r-- | comp/work/60/starter | 8 | ||||
-rw-r--r-- | comp/work/60/test | 12 |
6 files changed, 38 insertions, 0 deletions
diff --git a/comp/work/60/question b/comp/work/60/question Binary files differnew file mode 100755 index 0000000..30d3673 --- /dev/null +++ b/comp/work/60/question diff --git a/comp/work/60/question.hi b/comp/work/60/question.hi Binary files differnew file mode 100644 index 0000000..ff75cdd --- /dev/null +++ b/comp/work/60/question.hi 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 Binary files differnew file mode 100644 index 0000000..e7de03e --- /dev/null +++ b/comp/work/60/question.o 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 |