Đếm trong danh sách có bao nhiêu phần tử mang giá trị khác nhau
Liệt kê các phần tử xuất hiện trên tất cả các dòng
Sắp xếp trên từng dòng
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];
]