tal pract 2 ej 9

Ejercicio9[afn_] := Module[{i, j, res, nuevosf, cond},
   nuevosf = {};
   res = afn;
   For[i = 1, i <= Length[afn[[1]]], i++,
    cond = True;
    For[j = 1, j <= Length[afn[[2]]], j++,
     If[Length[Cases[afn[[3]], {afn[[1]][[i]], afn[[2]][[j]], _}] ] <=
         1,
       cond = cond && True;,
       cond = False;
       ];
     ];
    If[cond,
     nuevosf = Join[nuevosf, {afn[[1]][[i]]}];
     ];
    ];


   res[[5]] = nuevosf;

   Return[res];
   ];