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/trunk/src/MLRISC/library/priQueue.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/library/priQueue.sml

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

revision 245, Sat Apr 17 18:47:12 1999 UTC revision 411, Fri Sep 3 00:25:03 1999 UTC
# Line 1  Line 1 
1  (*  (*
2   * Priority queues implemented as leftist trees   * Priority queues implemented as leftist trees
3     *
4     * -- Allen
5   *)   *)
6    
7  structure PriorityQueue :> PRIORITY_QUEUE =  structure PriorityQueue :> PRIORITY_QUEUE =
# Line 75  Line 77 
77    
78     fun toList (PQ { root = ref t, ... }) = collect (t, [])     fun toList (PQ { root = ref t, ... }) = collect (t, [])
79    
    fun rerank (PQ { root = root as ref t, less, ... }) =  
        root := mergeElems(less, EMPTY, collect(t,[]))  
   
80  end  end
81    
 (*  
  * $Log$  
  *)  

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

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