import Data.Bool
import Data.List
import Data.Ord
import qualified Data.IntMap as M

main = do
 getLine
 score <- map read . words <$> getLine
 solver <- map read . words <$> getLine
 putStrLn (bool "NO" "YES" (fac score solver))

fac sc sl = (==0) $ fst $ maximumBy (comparing snd) $ reverse $ M.toList $ M.fromListWith (+) (zip sl sc)