import Control.Monad
import Data.List

main = do
  [n,k,q] <- map read.words<$>getLine
  as <- replicateM q readLn
  mapM_ putStrLn $ solve n k q as

solve n k q as = zipWith f (scanl(+)0cs) (tail$scanr(+)0cs) where
  f a b = if a+b < k then "Yes" else "No"
  cs = map (pred.length) $ group $ sort $ [1..n] ++ as