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