import qualified Data.Text as T
import qualified Data.Text.IO as T
import qualified Data.Text.Read as T
import qualified Data.Array as A
import Data.Bool (bool)

main :: IO ()
main = do
  (n : k : q : _) <- map unsafeSignedDecimal . T.words <$> T.getLine :: IO [Int]
  as <- sequence . replicate q $ unsafeSignedDecimal <$> T.getLine :: IO [Int]
  let
    cs = A.elems . A.accumArray (+) 0 (1, n) . map (flip (,) 1) $ as :: [Int]
    f :: Int -> Int
    f c = k - (q - c)
  mapM_ (putStrLn . bool "No" "Yes" . (0 <) . f) $ cs

unsafeSignedDecimal :: T.Text -> Int
unsafeSignedDecimal s = case T.signed T.decimal s of
  Right (n, _) -> n
