This version is about 200 times faster than the original for a list
of 400 words:
function stripDup theList,theitemDel
set the itemDelimiter to theItemDel
repeat for each item theItem in theList
if itemArray[theItem] is empty then
put 1 into itemArray[theItem]
put theItemDel & theItem after doneList
end if
end repeat
delete char 1 of doneList --a leading delimiter char
return doneList
end stripDup
--
Michael J. Lew
Senior Lecturer
Department of Pharmacology
The University of Melbourne
Parkville 3010
Victoria
Australia
Phone +613 8344 8304
**
New email address: [EMAIL PROTECTED]
**
Archives: http://www.mail-archive.com/[email protected]/
Info: http://www.xworlds.com/metacard/mailinglist.htm
Please send bug reports to <[EMAIL PROTECTED]>, not this list.
