Searched refs:clean_edges (Results 1 – 1 of 1) sorted by relevance
73 = let clean_edges = sort (nub raw_edges) function74 nodes = nub (concatMap (\(s,d) -> [s,d]) clean_edges)75 ins v = [u | (u,w) <- clean_edges, v==w]76 outs v = [w | (u,w) <- clean_edges, v==u]