UUID.st
changeset 5077 5ff492ca37d4
parent 5076 185b8f374d44
child 5218 87cac42cf4f8
equal deleted inserted replaced
5076:185b8f374d44 5077:5ff492ca37d4
   799             but considering these bytes does not generate a better hash to
   799             but considering these bytes does not generate a better hash to
   800             justify the additional computations.
   800             justify the additional computations.
   801 
   801 
   802     For random UUIDs, every byte is random anyway."
   802     For random UUIDs, every byte is random anyway."
   803 
   803 
   804     ^ (self computeXorHashFrom:1 to:4)
   804     ^ (self computeXorHashFrom:1 to:4) 
   805 "/        bitXor:(self computeXorHashFrom:13 to:16)
   805     "/ bitXor:(self computeXorHashFrom:13 to:16)
   806 
   806 
   807     "
   807     "
   808      |allHashes nonConflictsRatio|
   808      |allHashes nonConflictsRatio|
   809 
   809 
   810      allHashes := UUID allInstances collect:[:each| each hash].
   810      allHashes := UUID allInstances collect:[:each| each hash].