#include <PhoneticAlgorithms.au3>
Global Const $words[8] = [7, "Hello", "Yellow", "Fellow", "Bellow", "Orange", "Orangutang", "Ejllo"] ;"Ejllo" is not a word, but "Jello" with the first two letters transposed.

DoSoundexNARA()
DoSoundexNum()
DoLD()
DoDLD()


Func DoSoundexNARA()
    Local $msg = ""
    Local $i
    For $i = 1 To $words[0]
        $msg &= _SoundexNARA($words[$i]) & " - " & $words[$i] & @CRLF
    Next
    MsgBox(0, "Census Soundex Test", $msg)
EndFunc

Func DoSoundexNum()
    Local $msg = ""
    Local $i
    For $i = 1 To $words[0]
        $msg &= _SoundexNum($words[$i]) & " - " & $words[$i] & @CRLF
    Next
    MsgBox(0, "Numeric Soundex Test", $msg)
EndFunc

Func DoLD()
    Local $msg = ""
    Local $i
    For $i = 1 To $words[0]
        $msg &= _LevenshteinDistance("Jello", $words[$i]) & " - Jello <==> " & $words[$i] & @CRLF
    Next
    MsgBox(0, "Levenshtein Distance Test", $msg)
EndFunc

Func DoDLD()
    Local $msg = ""
    Local $i
    For $i = 1 To $words[0]
        $msg &= _DamerauLevenshteinDistance("Jello", $words[$i]) & " - Jello <==> " & $words[$i] & @CRLF
    Next
    MsgBox(0, "Damerau-Levenshtein Distance Test", $msg)
EndFunc