diff options
| -rw-r--r-- | Library/GraphPart.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Library/GraphPart.hs b/Library/GraphPart.hs index f2ef7bc..97503eb 100644 --- a/Library/GraphPart.hs +++ b/Library/GraphPart.hs @@ -12,6 +12,7 @@ module Library.GraphPart ( outputLab, graphAdd, + graphAddList, graphDel, size, addedSize, @@ -102,6 +103,12 @@ graphAdd gpart i o graph = +graphAddList :: [(GraphPart, Maybe (Node,Int), [(Node,Int)])] -> PGraph -> PGraph +graphAddList partList graph = + foldl' (\g (x,y,z) -> graphAdd x y z g) graph partList + + + graphDel :: GraphPart -> PGraph -> PGraph graphDel gpart graph = let n = map fst . nodes $ gpart |