-- 3.4
threeEqual :: Int -> Int -> Int -> Bool
threeEqual m n p = (m==n) && (n==p)

-- 3.8
fourEqualOne :: Int -> Int -> Int -> Int -> Bool
fourEqualOne a b c d = (a == b) && (b == c) && (c == d)

-- 3.8
fourEqualVTwo :: Int -> Int -> Int -> Int -> Bool
fourEqualVTwo a b c d = (threeEqual a b c) && (c == d)

-- 3.11
maxTwo :: Int -> Int -> Int
maxTwo x y
   | x >= y    = x
   | otherwise = y

minTwo :: Int -> Int -> Int
minTwo x y
   | x <= y    = x
   | otherwise = y

minThree :: Int -> Int -> Int -> Int
minThree a b c = (minTwo a (minTwo b c))