Sub Process_Globals
Dim set As B4XSet 'B4XCollections
End Sub
Sub AppStart (Args() As String)
set.Initialize
For i = 1 To 10000000
set.Add(GUID)
If i Mod 1000000 = 0 Then
Log($"${i}: ${NumberFormat(set.Size, 0, 0)}"$)
End If
Next
End Sub
Sub GUID As String
Dim sb As StringBuilder
sb.Initialize
For Each stp As Int In Array(8, 4, 4, 4, 12)
If sb.Length > 0 Then sb.Append("-")
For n = 1 To stp
Dim c As Int = Rnd(0, 16)
If c < 10 Then c = c + 48 Else c = c + 55
sb.Append(Chr(c))
Next
Next
Return sb.ToString
End Sub