Twin Basic

Public Type XLOPER12
    ' union 
    ' {
        ' double num;                           /* xltypeNum */
        ' XCHAR *str;                           /* xltypeStr */
        ' BOOL xbool;                           /* xltypeBool */
        ' int err;                              /* xltypeErr */
        ' int w;
        ' struct 
        ' {
            ' WORD count;                       /* always = 1 */
            ' XLREF12 ref;
        ' } sref;                               /* xltypeSRef */
        ' struct 
        ' {
            ' XLMREF12 *lpmref;
            ' IDSHEET idSheet;
        ' } mref;                               /* xltypeRef */
        ' struct 
        ' {
            ' struct xloper12 *lparray;
            ' RW rows;
            ' COL columns;
        ' } array;                              /* xltypeMulti */
        ' struct 
        ' {
            ' union
            ' {
                ' int level;                    /* xlflowRestart */
                ' int tbctrl;                   /* xlflowPause */
                ' IDSHEET idSheet;              /* xlflowGoto */
            ' } valflow;
            ' RW rw;                            /* xlflowGoto */
            ' COL col;                          /* xlflowGoto */
            ' BYTE xlflow;
        ' } flow;                               /* xltypeFlow */
        ' struct
        ' {
            ' union
            ' {
                ' BYTE *lpbData;                /* data passed to XL */
                ' HANDLE hdata;                 /* data returned from XL */
            ' } h;
            ' long cbData;
        ' } bigdata;                            /* xltypeBigData */
    ' } val;
    ' DWORD xltype;
    val(2) As LongLong 'for 8 byte alignment 
    xltype As XloperTypes
End Type

    [UseGetLastError(False), DLLStackCheck(False)]
    Public DeclareWide PtrSafe Property Let Put4 Lib "<hiddenmodule>" Alias "#10" (ByVal pDst As LongPtr, ByVal value As Long) 'Alias PutMem4
    [PreserveSig(False), UseGetLastError(False), DLLStackCheck(False)]
    Public DeclareWide PtrSafe Function Get4 Lib "<hiddenmodule>" Alias "#5" (ByVal pSrc As LongPtr) As Long 'Alias GetMem4
    [ArrayBoundsChecks(False), IntegerOverflowChecks(False)]
    Private Function LevenshteinDistance2(Str1 As String, Str2 As String) As Long
        'Input validation
        Dim m As Long = Len(Str1)
        Dim n As Long = Len(Str2)
        If Str1 = Str2 Then Return 0
        If m = 0 Then Return n
        If n = 0 Then Return m
        'Make str1 the shorter string for space optimization
        If m > n Then Return LevenshteinDistance(Str2, Str1)
            
        'Use two rows instead of full matrix
        Dim prevRow&(): ReDim prevRow(m + 1)
        Dim currRow&(): ReDim currRow(m + 1)
        Dim pCur As LongPtr, pPrv As LongPtr
        Dim pCur0 As LongPtr = VarPtr(currRow(0))
        Dim pPrv0 As LongPtr = VarPtr(prevRow(0))
        Dim pCur1 As LongPtr = pCur0 + 4
        Dim pPrv1 As LongPtr = pPrv0 + 4
        Dim i&, cost&
        For pPrv = pPrv1 To pPrv0 + m * 4 Step 4 '(LenB(Of Long))
            Put4(pPrv) = i: i += 1
        Next
        Dim pStr1 As LongPtr = StrPtr(Str1)
        Dim pStr2 As LongPtr = StrPtr(Str2)
        Dim pChr1 As LongPtr, pChr2 As LongPtr
        Dim pChr1Max As LongPtr = pStr1 + (m - 1) * 2
        Dim rowSz As Long = m * 4 + 4: i = 1
        
        For pChr2 = pStr2 To pStr2 + (n - 1) * 2 Step 2
            Put4(pCur0) = i: i += 1 'currRow(0) = j
            'Calculate minimum of three operations:
            pCur = pCur1: pPrv = pPrv1
            For pChr1 = pStr1 To pChr1Max Step 2
                If EqualIntPtr(pChr1, pChr2) Then cost = 0 Else cost = 1
                Put4(pCur) = Min(Get4(pPrv) + 1, _      /*deletion*/
                                Get4(pCur - 4) + 1, _   /*insertion*/
                                Get4(pPrv - 4) + cost) '/*substitution*/
                pCur += 4: pPrv += 4
            Next
            
            vbaCopyBytes rowSz, pPrv0, pCur0
        Next
        
        Return Get4(pPrv0 + m * 4) 'prevRow(m)
    End Function