import Data.List
f ::[Int]->[Int]->Int->Bool
f [] [] _=True
f _ [] _=False
f [] _ _=False
f (a:as) (b:bs) d
    |a<=b =f as bs ((b-a) `div` 2 + d)
    |otherwise =if a-b<=d then f as bs (d-(a-b)) else False

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 0 then "Yes" else "No"