B4J Code Snippet [B4X][LOA] Fast access to columns of ListOfArrays makes a difference

'A 1000000 x 3 table of random numbers between 0 and 360 ('LOA4' in code below)
'c_1                 c_2                 c_3            
'――――――――――――――――――――――――
'112.068         333.947         40.493      
'175.982         251.892         315.090    
'77.418           348.905         199.868    
'65.135           277.855         243.007    
'198.994         260.251         232.114    
'―――first 5 rows―― #rows=1000000 #cols=3

'Transform to MOL
    Dim markTime As Long = DateTime.Now
    Dim MOL As Map = wLOAtoMOL(LOA4)
    Log(DateTime.Now - markTime)     '41 msecs

'Test without tranformation: 100 accesses to 1000000 rows
    Dim markTime As Long = DateTime.Now
    For i = 1 To 100
        Dim j As Int = 1 + i Mod 3
        Dim c_j As List = LOA4.GetColumn("c_" & j)
    Next
    Log(DateTime.Now - markTime)     '1509 msecs

'Test with MOL: 100 accesses to 1000000 rows
    Dim markTime As Long = DateTime.Now
    For i = 1 To 100
        Dim j As Int = 1 + i Mod 3
        Dim c_j As List = MOL.Get("c_" & j)
    Next
    Log(DateTime.Now - markTime)    '<1 msec

Public Sub wLOAtoMOL (LOA As ListOfArrays) As Map
    Dim mp As Map
    mp.Initialize
    For Each s As String In LOA.Header
        mp.put(s, LOA.GetColumn(s))
    Next
    Return mp  
End Sub