a=ARGF.read.split m,k=a.shift(4).map(&:to_i) o=a.shift b=a.shift(m).map(&:to_i) a=a.map(&:to_i).sort c=a.size p b.map{|e|c-((0...c).bsearch{|i|e.send(o,a[i])>=k}||c)}.sum