average pairwise distance over array of Float 2-tuples

pwise_meandist.jl

function pwise_meandist(A::Array{Tuple{FLoat64, Float64}})
    s = 0.0
    i = 1
    n = length(A)
    while i < n
        (x0, y0) = A[i]
        for j in (i+1):length(A)
            (x1, y1) = A[j]
            s += sqrt((x0 - x1)^2 + (y0 - y1)^2)
        end
        i += 1
    end
    return s/n
end