Submission #2531541

---

Source Code Expand

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 (fromIntegral((b-a) `div` 2) + 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 (0::Integer) then "Yes" else "No"

Submission Info

Judge Result