Square Triple

# Square Triple drill

function st(Q::Array{Int64, 1})
    N = length(Q)

    for i = 1:(N-2)
        if Q[i] == 0; continue; end

        for j = (i+1):(N-1)
            if Q[j] == 0; continue; end

            for k = (j+1):N
                if (Q[k] != 0) && (Q[i] * Q[j] == Q[k]^2); println(Q[[i,j,k]]); println(Q[[j,i,k]]); end
            end
        end
    end
end