exercise 3.2

03-typesandentities/exercises/ex3.2.hs

@@ -0,0 +1,15 @@
+-- Exercise 3.2
+-- George C. Privon
+-- 2023-09-05
+
+-- a)
+f :: Double -> Double
+f x = if x <= 0
+    then 0
+    else x
+
+-- b)
+bigE :: Double -> Double
+bigE r = if r <= 1
+    then r
+    else 1 / r^2