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 /MLRISC/releases/release-110.60/graphs/johnson.sml
ViewVC logotype

Diff of /MLRISC/releases/release-110.60/graphs/johnson.sml

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

revision 544, Tue Feb 22 22:56:38 2000 UTC revision 545, Thu Feb 24 13:56:44 2000 UTC
# Line 4  Line 4 
4   * -- Allen   * -- Allen
5   *)   *)
6    
7  functor JohnsonFn(Num : ABELIAN_GROUP_WITH_INF) :  functor Johnson(Num : ABELIAN_GROUP_WITH_INF) :
8      sig include ALL_PAIRS_SHORTEST_PATHS      sig include ALL_PAIRS_SHORTEST_PATHS
9          exception NegativeCycle          exception NegativeCycle
10      end =      end =
# Line 14  Line 14 
14     structure G   = Graph     structure G   = Graph
15     structure A2  = Array2     structure A2  = Array2
16     structure A   = Array     structure A   = Array
17     structure D   = DijkstraFn(Num)     structure D   = Dijkstra(Num)
18     structure BF  = BellmanFordFn(Num)     structure BF  = BellmanFord(Num)
19     structure GI  = DirectedGraphFn(HashArray)     structure GI  = DirectedGraph(HashArray)
20     structure U   = UnionGraphView     structure U   = UnionGraphView
21    
22     exception NegativeCycle = BF.NegativeCycle     exception NegativeCycle = BF.NegativeCycle

Legend:
Removed from v.544  
changed lines
  Added in v.545

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