import Data.List
f ::[Int]->[Int]->Integer->Bool
f [] [] d
    |d>=0 =True
    |otherwise=False
f (a:as) (b:bs) d
    |a <= b =f as bs d
    |otherwise=f as bs (d - fromIntegral (a-b))

main = do
       e<-getLine
       a<-getLine
       b<-getLine
       let as=sort $ map read (words a)::[Int]
           bs=sort $ map read (words b)::[Int]
       putStrLn $ if f as bs (fromIntegral((sum bs)-(sum as))) then "Yes" else "No"