st/Set.st

   1
   2 "testing"
   3
   4 Set method!
   5 includeAll: aCollection
   6         | index |
   7
   8         aCollection do: [ :e | self include: e ].
   9
  10         ^ aCollection!
  11
  12 Set method!
  13 includes: anObject
  14         | index |
  15
  16         (array at: (self find: anObject)) ifNil: [^ false].
  17
  18         ^ true!
  19
  20 Set method!
  21 occurancesOf: anObject
  22         (self includes: anObject)
  23                 ifTrue: [^ 1]
  24                 ifFalse: [^ 0]!
  25
  26 "including"
  27
  28 Set method!
  29 add: anObject
  30         ^ self include: anObject!
  31
  32 Set method!
  33 include: anObject
  34         | index |
  35         anObject ifNil: [ self error: 'Sets cannot meaningfully contain nil'].
  36
  37         index := self find: anObject.
  38         (array at: index) ifNotNil: [^ anObject].
  39         self at: index include: anObject.
  40         ^ anObject!
  41
  42
  43 "removing"
  44
  45 HashedCollection method!
  46 remove: anObject ifAbsent: aBlock
  47         | index |
  48
  49         index := self find: anObject.
  50
  51         (array at: index) ifNil: [^ aBlock value].
  52
  53         self removeAtIndex: index.
  54
  55         ^ anObject!
  56
  57
  58 "private"
  59
  60 Set method!
  61 find: anObject in: anArray
  62         | i mask |
  63
  64         mask := anArray size - 1.
  65
  66         i := (anObject hash bitAnd: mask) + 1.
  67
  68         [ | object |
  69
  70           object := anArray at: i.
  71
  72           (object = anObject) | (object == nil)
  73                   ifTrue: [^ i].
  74
  75           i := (i + 106720 bitAnd: mask) + 1.
  76
  77         ] repeat!