Calcular la complejidad en tiempo del algoritmo que calcula el conjunto (X)
de las partes de X (suponiendo que la unión de un elemento a una lista mediante
Append[lista, elemento] es una instrucción básica del ordenador).

X = {lista de elementos};
Partes = {{}};
For[j = 1, j <= Length[X], j++, temp = Length[Partes];
For[i = 1, i <= temp, i++, Partes = Append[Partes, Append[Partes[[i]], X[[j]]]]; ];
];
Print["El conjunto partes del conjunto X = ", X, " es el conjunto P(X) = ", Partes]