n, d = gets.split.map(&:to_i)
x = n.times.map { gets.split.map(&:to_i) }

c = 0
0.upto(n-2) do |i|
  (i+1).upto(n-1) do |j|
    v = d.times.map { |k| (x[i][k] - x[j][k]) ** 2 }.reduce(&:+)
    f = Math.sqrt(v)
    c += 1 if f == f.to_i
  end
end

puts c