Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/branches/SMLNJ/src/MLRISC/graphs/graph-cycles.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/MLRISC/graphs/graph-cycles.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 410, Fri Sep 3 00:25:03 1999 UTC revision 411, Fri Sep 3 00:25:03 1999 UTC
# Line 1  Line 1 
1  (*  (*
2   *  Enumerate all simple cycles in a graph with no duplicates   * Enumerate all simple cycles in a graph with no duplicates.
3     *
4     * This module enumerates all simple cycles in a graph.
5     * Each cycle is reprensented as a list of edges.  Adjacent edges
6     * are adjacent in the list.  The function works like fold: all cycles
7     * are ``folded'' together with a user supplied function.
8     *
9     * -- Allen
10   *)   *)
11    
12  structure GraphCycles : GRAPH_SIMPLE_CYCLES =  structure GraphCycles : GRAPH_SIMPLE_CYCLES =
13  struct  struct
14    
# Line 47  Line 55 
55             enumerateAll(0,scc,x)             enumerateAll(0,scc,x)
56         end         end
57    
58     in  GraphSCC.scc graph processSCC x     in  GraphSCC.strong_components graph processSCC x
59     end     end
60    
61  end  end
62    
 (*  
  * $Log$  
  *)  

Legend:
Removed from v.410  
changed lines
  Added in v.411

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0