Commit bca1ac4b authored by Alexandre Delanoë's avatar Alexandre Delanoë

[PATH]

parent 013663b3
...@@ -53,6 +53,9 @@ spoon :: Gr RGraph Double ...@@ -53,6 +53,9 @@ spoon :: Gr RGraph Double
spoon = mkGraph ns es spoon = mkGraph ns es
------------------------------------------------------------------------ ------------------------------------------------------------------------
------------------------------------------------------------------------ -- Path in the Graph
path :: Graph gr => gr a b -> [[Node]]
path g = map (\xs -> dfs xs g ) (components g)
------------------------------------------------------------------------
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment