import core.bitop;
import std.algorithm;
import std.ascii;
import std.bigint;
import std.conv;
import std.functional;
import std.math;
import std.numeric;
import std.range;
import std.stdio;
import std.string;
import std.random;
import std.typecons;
import std.container;

alias sread = () => readln.chomp();
ulong bignum = 1_000_000_007;
alias Pair = Tuple!(long, "begin", long, "end");

T lread(T = long)()
{
    return readln.chomp.to!T();
}

T[] aryread(T = long)()
{
    return readln.split.to!(T[])();
}

void scan(TList...)(ref TList Args)
{
    auto line = readln.split();
    foreach (i, T; TList)
    {
        T val = line[i].to!(T);
        Args[i] = val;
    }
}

void main()
{
    long n, d;
    scan(n, d);
    auto dims = new long[][](n, d);
    foreach (ref e; dims[])
    {
        e = aryread();
    }
    long count;
    long[] dist = [1];
    long tmp;
    while (dist[tmp] < (40 ^^ 2) * 10)
        dist ~= (++tmp + 1) ^^ 2;
    foreach (e1; dims[])
    {
        foreach (e2; dims[])
        {
            auto s = iota(0, d).map!(x => (e1[x] - e2[x]) ^^ 2).sum;
            foreach (e3; dist)
                if (s == e3)
                    count++;
        }
    }
    (count / 2).writeln();
}
