Re: Faster Please (attached code .exw)
- Posted by Pete Lomax <petelomax at blueyonder.co.uk> Jan 13, 2004
- 590 views
On Mon, 12 Jan 2004 18:19:33 -0500, Euman <euman at bellsouth.net> wrote:
Try this:
function v3(atom dl, sequence flat)
sequence res
integer i, k, lf
lf=length(flat)
i=1
res={}
while i<=lf do
k=find(dl,flat[i..lf])
res=append(res,flat[i..i+k-2])
i+=k
end while
return res
end function
You can make dl a sequence and use match if you like
Pete
PS Look ma, no =3D's
