On Mon, May 13, 2002 at 10:15:36PM +0200, Denis Barbier wrote: > On Mon, May 13, 2002 at 08:38:26AM +0200, Stefano Zacchiroli wrote: > > On Mon, May 13, 2002 at 01:39:31AM +0200, Denis Barbier wrote: > > > let sup_list src remove = > > > let rec f collected = function > > > | [] -> collected > > > | head::tail -> if List.exists (eq_line head) remove then f collected tail >else f (collected@[head]) tail in > > > f [] src > > > > better: > > > > let sup_list src remove = > > let rec f collected = function > > | [] -> collected > > | head::tail -> > > if List.exists (eq_line head) remove then > > f collected tail > > else > > f head::collected tail > > in > > List.rev (f [] src) > > I get it, thanks for the tip.
I replied already in the other thread, so just short : Thanks, i will apply this patch to the next ocaml release i do (wednesday i hope). Anyway, this will not make it to woody, which should already have been released. Friendly, Sven Luther -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
