Code archives/Miscellaneous/Delete similar types
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
Deletes type 'copies' leaving a unique set of types that all have different values. | |||||
Type mytype Field xfactor End Type somany=1000 For some=1 To somany m.mytype=New mytype m\xfactor=Rnd(100) Next For m.mytype=Each mytype Print m\xfactor Next start=MilliSecs() For a.mytype=Each mytype For b.mytype=Each mytype If Handle(a)<>Handle(b) If a\xfactor=b\xfactor Delete b EndIf EndIf Next Next time=MilliSecs()-start For m.mytype=Each mytype Print m\xfactor Next Print "Search took "+time+" millisecs for "+somany+" types" While Not KeyHit(1) Wend |
Comments
None.
Code Archives Forum