PhysicswithHaskell/03-typesandentities/exercises/ex3.2.hs

-- 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