N,X=gets.split.map &:to_i
h={}
gets.split.map(&:to_i).each{|n|h[n]=(h[n]||0)+1}
c=0
h.keys.sort.each{|n|
  break if n>X/2
  if h[m=X-n]
    c+=h[n]*h[m]*(2-1[n-m])
  end
}
p c