src/lib/set-sorted.slate

   1 define: #SortedSet &parents: {SortedArray. NoDuplicatesCollection}.
   2
   3 s@(SortedSet traits) new
   4 [#new sendTo: {s} through: {SortedArray}].
   5
   6 s@(Set traits) sort
   7 [(SortedSet newSizeOf: s) `>> [addAll: s. ]].
   8
   9 s@(Set traits) sortBy: block
  10 [(SortedSet newSizeOf: s) `>> [sortBlock := block. addAll: s. ]].
  11
  12 sc@(SortedSet traits) add: obj
  13 [
  14   (sc includes: obj)
  15     ifFalse: [sc at: (sc indexForInserting: obj) insert: obj].
  16   obj
  17 ].