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. Denis -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
