import Control.Applicative ((<$>))
import Control.Monad (unless, replicateM)
import Data.List (transpose)

main :: IO ()
main = do
    [n, k] <- map read . words <$> getLine
    unless (n == 0 && k == 0) $ do
        ss <- map read . words <$> getLine
        bs <- map (map read) . map words <$> replicateM n getLine
        let rs = map sum $ transpose bs
        putStrLn $ if all (>= 0) $ zipWith (-) ss rs then "Yes" else "No"
        main