ll@n,@k,z[n+1]{};rep(n)++z[rd_ll()];wt(sum[i,0,n]((*z+z[i+1])/k)?"Yes":"No");