Dim mymap As Map
mymap.initialize
For i = 1 To 100000
mymap.Put(Rnd(0, 1000000), True)
Next
Dim markTime As Long = DateTime.Now
For i = 1 To 100000
Try
Dim test As Int = mymap.get(1000000 + Rnd(0, 1000000))
Catch
'Log(LastException)
End Try
Next
Log(DateTime.Now - markTime) '152 milliseconds for 100,000 iterations
markTime = DateTime.Now
For i = 1 To 100000
Dim test As Int = mymap.getDefault(1000000 + Rnd(0, 1000000), 0)
Next
Log(DateTime.Now - markTime) '11 milliseconds for 100,000 iterations