Dear Sir/Madam, If we have a list like [[2,1],[5,2,1],[6,5,2,1],[9,10]] and I want to find the result in the form of [6,5,2,1].[9,10] and want to delete all those list that are contatined in the other. How may I progrme this
I do like let FV:= [[2,1],[5,2,1],[6,5,2,1],[9,10]]; Intersection:=function(FV) local A,B,a; for A in FV do for B in FV do if Intersection(A,B)=B then a:=Position(FV,B); Unbind(FV[a]); fi; od; od; return FV; end; However, this program gives me empty list. Could you please guide me in this program. Thanks Regards Siddiqua _______________________________________________ Forum mailing list Forum@mail.gap-system.org http://mail.gap-system.org/mailman/listinfo/forum
