Add order-smallest-last.

graph.rkt

@@ -43,6 +43,7 @@
            floyd-warshall transitive-closure johnson
 
            coloring coloring/greedy coloring/brelaz
+           order-smallest-last
 
            graphviz)
 
@@ -222,6 +223,8 @@
     (g:coloring/greedy (gg g) #:order order))
   (define (coloring/brelaz g)
     (g:coloring/brelaz (gg g)))
+  (define (order-smallest-last g)
+    (g:order-smallest-last (gg g)))
 
   ;; 10 Graphviz
   (define (graphviz g #:output [output #f] #:colors [colors #f])
@@ -337,6 +340,7 @@
                         (Values Number
                                 (Mutable-HashTable Any Number)))]
   [coloring/brelaz (-> Graph (Mutable-HashTable Any Number))]
+  [order-smallest-last (-> Graph (Listof Any))]
 
   ;; 10 Graphviz
   [graphviz (->* (Graph)
@@ -552,7 +556,9 @@
                   '((a . 0) (b . 1) (c . 0) (d . 1)))
 
     (check-equal? (hash->ordered-list (coloring/brelaz g0))
-                  '((a . 0) (b . 1) (c . 0) (d . 1))))
+                  '((a . 0) (b . 1) (c . 0) (d . 1)))
+
+    (check-equal? (order-smallest-last g0) '(c d a b)))
 
   (test-case "10 Graphviz"
     (define g (directed-graph '((a b) (b c))))