>hmmm, Is it too late to enter the compiteition?
>
>

FUNCTION NonDupe(cString)
>LOCAL cNewStr 
> 
>cNewStr =""
>DO WHILE LEN(cString) > 0
>	cNewStr = cNewStr + LEFT(cString,1)
>	cString = STRTRAN(cString, LEFT(cString,1))
>ENDDO
>RETURN cNewStr
>ENDFUNC

>
>Which is shorter and faster than Marcia's alghorithm by 40% in my testing
>
>But all are nothing compared when you've got some C++ code working for you.
>The FoxTools.fll contains a function REDUCE() which is extremely fast on eliminating characters from a string.
>It has been written to reduce spaces but has a different role for other characters. It will remove them and replace with spaces.
>
>The following alghorith does not not work for detecting the space as a separate character, but if you're only concerned with non-space characters the following is about a 100 times faster than Marcia's routine.
>
>
>

FUNCTION NonDupe3(cString)
>LOCAL cNewStr 
> 
>cNewStr =""
>
>DO WHILE LEN(cString) > 0
>	cNewStr = cNewStr + LEFT(cString,1)
>	cString = LTRIM(REDUCE(cString, LEFT(cString,1)))
>ENDDO
>RETURN cNewStr
>ENDFUNC

>
>Walter,

Very nice algorithm Walter!