Sub Activity_Create(FirstTime As Boolean)
Dim arr(5) As String
arr(0) ="A"
arr(1) ="B"
arr(2) ="A"
arr(3) ="B"
arr(4) ="A"
Log(CountDuplicates(arr))
End Sub
Sub CountDuplicates(arr() As String) As Map
Dim m As Map
m.Initialize
For Each s As String In arr
Dim count As Int
If m.ContainsKey(s) Then
count = m.Get(s)
End If
m.Put(s, count + 1)
Next
Return m
End Sub