rangelab: Replaced int table table with unit table.

Use unit table as ordered set.
EAirPeter · Feb 15, 2017 · 59c099d · 59c099d
1 parent 111465f
commit 59c099d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/hw8-rangelab/MkRangeCount.sml b/hw8-rangelab/MkRangeCount.sml
@@ -12,12 +12,12 @@ struct
   val compareKey : (Key.t * Key.t) -> order = Key.compare
 
   (* Define this yourself *)
-  type countTable = int table table
+  type countTable = unit table table
 
   fun makeCountTable (S : point seq) : countTable = let
     val sqSorted = Seq.sort (fn (p1, p2) => compareKey (#1 p1, #1 p2)) S
     val (sqMapsTmp, mLast) = Seq.iterh
-      (fn (m, p) => OrdTable.insert #1 (#2 p, 1) m)
+      (fn (m, p) => OrdTable.insert #1 (#2 p, ()) m)
       (OrdTable.empty ())
       sqSorted
     val sqMaps =