B4J Question Count the number of appearances of a number in a list

Sub FindItemCount(myList As List) As List
    Dim result As List
    result.Initialize
    
    Dim currentNumber, currentCount As Int
    currentNumber = myList.Get(0)
    currentCount = 1
    
    For i = 1 To myList.Size - 1
        Dim n As Int = myList.Get(i)
        If n <> currentNumber Then
            result.Add(currentCount)
            currentNumber = n
            currentCount = 1
            Continue
        End If
        currentCount = currentCount + 1
    Next
    result.Add(currentCount)
    Return result        
End Sub

Sub subTotal(input As List) As List
    Dim output As List
    output.Initialize
    Dim previous As Int = -1
    Dim count As Int = 0
    Dim first As Boolean = True
    For Each i As Int In input
        If (i = previous) Then
            count = count + 1
        Else
            If Not(first) Then
                output.Add(count + 1)
                count = 0
            End If
        End If
        previous = i
        first = False       
    Next
    output.Add(count + 1)
    Return output
End Sub

    Dim m As Map
    m.Initialize
   
    Dim myList As List
    myList.Initialize
   
    myList = Array As Int(7,7,7,11,13,13,23)
   
    For Each i As Int In myList
        m.Put(i,m.GetDefault(i,0)+1)
    Next
   
    For Each k As Int In m.Keys
        Log(k & ":" & m.Get(k))       
    Next

Waiting for debugger to connect...
Program started.
7:3.0
11:1.0
13:2.0
23:1.0
Program terminated (StartMessageLoop was not called).

Sub FindItemCount(myList As List) As List
    Dim m As B4XOrderedMap = B4XCollections.CreateOrderedMap
    For Each i As Int In myList
        m.Put(i, m.GetDefault(i, 0) + 1)
    Next
    Return m.Values
End Sub