Strict


Type TSprite
   Field Z:Int
   
   Method Compare(Other:Object)
      Local Obj:TSprite = TSprite(Other)
      
      If Not Obj
         Return 1
      EndIf
      
      Return Z-Obj.Z
   End Method
End Type


Const Count:Int = 2000

Local List:TList = New TList


For Local i:Int = 0 Until Count
   Local Sprite:TSprite = New TSprite
   Sprite.Z = Rand(0,3244)
   List.AddLast(Sprite)
Next


Function VersionNormal(List:TList)
   List.Sort()
End Function


Function VersionArray(List:TLIst Var)
   Local Arr:Object[] = List.ToArray()
   Arr.Sort()
   List = List.FromArray(arr)
End Function




Local Time:Int = MilliSecs()

VersionNormal(List)
'VersionArray(List)

Print "TIME: "+(MilliSecs()-Time)