--          Funcao de distancia                 dataset     epislon  minPts   ObjId, Grupo
dbscan :: ([Double] -> [Double] -> Double) -> [[Double]] -> Double -> Int -> [(Int, Int)]
dbscan dist [] eps minPts = []
dbscan dist dataset eps minPts = zip notNoise minId
    where
        notNoise = [(round . head) k | k <- [ [ head y | x <- coreCords, dist (tail x) (tail y) <= eps ] | y <- dataset], not (null k)]
        minId = [ round (minimum k) | k <- [ [ head x | x <- coreCords, dist (tail x) (tail y) <= eps ] | y <- dataset],  not (null k)]
        coreCords = getCoreCords dist dataset eps minPts

expected: [(0,2),(1,2),(2,1),(3,3),(4,2),(7,1),(8,1),(9,3),(10,3),(11,3)]
but got: [(0,4),(1,4),(2,2),(3,11),(4,4),(7,2),(8,2),(9,10),(10,10),(11,10)]

-- vou reduzir a dimensão do segundo elemento da tupla, mas pra isso o 3 devia pegar o 10 e n o 11 como menor id de core prox dele, alguem sabe pq ele ta pegando o 11 e n o 10?