n,d = gets.split.map(&:to_i)
ary = []
result = 0
n.times { ary << gets.split.map(&:to_i) }
n.times do |i|
  n.times do |j|
    if i >= j
      next
    end
    a = ary[i]
    b = ary[j]
    sum = 0
    d.times do |k|
      sum += (a[k] - b[k])**2
    end
    sum = sum ** (1.0/2)
    result += 1 if sum == sum.to_i
  end
end
puts result