Are Equally Strong

Haskell Are Equally Strong

areEquallyStrong :: Int -> Int -> Int -> Int -> Bool
areEquallyStrong yourLeft yourRight friendsLeft friendsRight =
  max yourRight yourLeft == max friendsLeft friendsRight
    && min yourLeft yourRight == min friendsRight friendsLeft

This compares each person’s strongest and weakest arm. If both pairs match, the result is true.