Đếm trong danh sách có bao nhiêu phần tử mang giá trị khác nhau

Code:

Dem[L_] := Module[{p, i},
       p = {};
       For[i = 1, i ≤ Length[L], i  ,
            p = Union[p, L[[i]]];
      ];
    Return[Length[p]];
    ]



Liệt kê các phần tử xuất hiện trên tất cả các dòng

Code:

XuatHienTrenDong[L_] := Module[{p, i, o, T, k, j, h,},
       n = Length[L];
       p = {};
       o = {};
       For[i = 1, i ≤ n, i++,
            p = Union[p, L[[i]]];
         ];
   
       For[j = 1, j ≤ Length[p], j++,
            T = True;
            k = 1;
            While[k ≤ n && T == True,
                 T = False;
                 For[h = 1, h ≤ n, h++,
                      If[p[[j]] == L[[k, h]], T = True];         
                   ];
                 k++;
              ];
            If[T == True, o = Insert[o, p[[j]], 1]];
      ];
       
    Return[o];
    ]



Sắp xếp trên từng dòng

Code:

SapXep[L_] := Module[{p, i, n},
       n = Length[L];
       p = L;
       For[i = 1, i ≤ n, i++,
            p[[i]] = Sort[p[[i]]];
         ];
       
       Return[p];
    ]