@@ -8,14 +8,14 @@ ehConexo _ = True dfs :: Grafo -> [Int] dfs (Grafo 0 _) = [] -dfs grafo = dfs' 1 grafo +dfs grafo = dfs' grafo 1 -dfs' :: Int -> Grafo -> [Int] -dfs' vertice (Grafo n arestas) = +dfs' :: Grafo -> Int -> [Int] +dfs' (Grafo n arestas) vertice = let amigos = vizinhos vertice arestas - --novasArestas = remove vertice arestas - --visitados = dfs (Grafo n novasArestas) + novasArestas = remove vertice arestas + visitados' = map (dfs' (Grafo n novasArestas)) amigos in vertice:amigos 67-Energy/Energy.hs 0cc31f7e8d4f5ebe916198d81b082a452e40cf66 Thiago Rodrigues Colucci ticolucci@marvin.(none) http://github.com/dojosp/participant-s-projects/commit/b3f594b59cc116f90dfe64c07ae60f9f3a9f2a26 b3f594b59cc116f90dfe64c07ae60f9f3a9f2a26 2009-03-09T18:11:28-07:00 2009-03-09T18:11:28-07:00 Commit final. Rafael e Thiago be6fe17abe9c012ca2bb7689ba81ae068b28874c Thiago Rodrigues Colucci ticolucci@marvin.(none)