Levenshtein_Array_Clean ( lenStr1 ; lenStr2 ; i ; j ; pad )

Sub-function, called by the Levenshtein function to clean up after itself.

Average rating: 4.3 (32 votes) Log in to vote

Steve Allen
Richard Carlton Consulting, Inc.
http://www.rcconsulting.com

Sample input:

Levenshtein_Array_Clean( 4 , 3 ; 1 ; 1 ; "000" )

Sample output:

"Cleaned"

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/**
 * Levenshtein_Array_Clean ( lenStr1 ; lenStr2 ; i ; j ; pad )
 * 
 * by Steve Allen; Lead Engineer; Richard Carlton Consulting, Inc.
 * P: (707) 422-4053
 * E: info@rcconsulting.com
 *
 * @version 1.0
 *
 * @description
 *
 * 	Sub-function, called by the Levenshtein function (http://www.briandunning.com/cf/965)
 * 	to clean up after itself.
 *
 * 	Note: for formatting reasons, best viewed in a large text space, and/or with word wrap off.
 * 
 * @param string lenStr1
 *	
 *	Length of the First String being compared.
 *	(Also, this is the maximum coordinate of the first dimension of the array being cleaned.)
 * 
 * @param string lenStr2
 *	
 *	Length of the Second String being compared.
 *	(Also, this is the maximum coordinate of the second dimension of the array being cleaned.)
 * 
 * @param number i
 *	
 *	The current iteration in the outer loop.
 *	(The first-dimension coordinate for the cell to be cleaned by this loop iteration.)
 * 
 * @param number j
 *	
 *	The current iteration in the inner loop.
 *	(The second-dimension coordinate for the cell to be cleaned by this loop iteration.)
 *
 * @param string pad
 *
 *	Padding string.  See note 1 in Levenshtein function comments.
 *	(Should be all 0's, but this is not validated.)
 *
 *  @result string
 *
 *	Returns static text "Cleaned".  This is for debugging purposes only, and has no meaning in
 *	either this function or the Levenshtein function.
 *
 */

Case ( i <= lenStr1 ;
	Case ( j <= lenStr2 ;
		Let ([
			lenPad		= Length ( pad )
		;	cell		= GetAsNumber ( Right ( pad & i ; lenPad ) & Right ( pad & j ; lenPad ) )
		;	$$_ld_array[cell]	= ""
		];
			Levenshtein_Array_Clean ( lenStr1 ; lenStr2 ; i ; j + 1 ; pad )
		)
	;	Levenshtein_Array_Clean ( lenStr1 ; lenStr2 ; i + 1 ; 0 ; pad )
	)
;	"Cleaned"
)

Sub-function, called by the Levenshtein function to clean up after itself.

Best viewed in a large space. (i.e. - the code box on briandunning.com is not big enough to make the whitespacing show properly [word wrap pretty much destroys it]. :) )

Comments

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

Levenshtein_Array_Clean ( lenStr1 ; lenStr2 ; i ; j ; pad )

Comments

Support this website.

Support this website.