import Data.List
main :: IO ()
main = do
  getLine
  line <- getLine
  putStrLn $ isUniq $ words line

isUniq :: [String] -> String
isUniq chars
  | originalLength == uniqLength = "YES"
  | otherwise = "NO"
  where
    uniqLength = length $ nub chars
    originalLength = length chars