# SCM Repository

# View of /sml/trunk/src/MLRISC/graphs/graph-comb.sml

Parent Directory | Revision Log

Revision

File size: 711 byte(s)

**228**- (**download**) (**annotate**)*Sat Apr 17 17:15:03 1999 UTC*(20 years, 11 months ago) by*monnier*File size: 711 byte(s)

This commit was generated by cvs2svn to compensate for changes in r227, which included commits to RCS files with non-trunk default branches.

structure GraphCombinations : GRAPH_COMBINATIONS = struct structure G = Graph structure Union = UnionGraphView structure Rename = RenamedGraphView structure Rev = ReversedGraphView (* * Disjoint union *) fun my_union (a,b) = Union.union_view (fn (x,y) => x) (a, b) fun sum (A as G.GRAPH a, B as G.GRAPH b) = my_union(A, Rename.rename_view (#capacity a ()) B) fun union [] = raise G.Graph "union" | union [a] = a | union [a,b] = my_union(a,b) | union (a::b) = my_union(a,union b) fun sums [] = raise G.Graph "sums" | sums [a] = a | sums [a,b] = sum(a,b) | sums (a::b) = sum(a,sums b) end (* * $Log$ *)

root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |

Powered by ViewVC 1.0.0 |