tal pract 1 ej 1-9

Milength[lista_] := Module[{resultado, aux},
  resultado = 0;
  aux = lista;
  While[ aux =!= {},
   aux = Rest[aux];
   resultado++;
   ];
  Return[resultado]
  ]


Ejercicio2[lista_] := Module[{auxPar, auxImpar, resultado, i},
  auxPar = {};
  auxImpar = {};
  For[i = 0, i < Length[lista], i++
     If[Mod[i, 2] == 0,
      auxPar = Append[auxPar, lista[[i]] ],
      auxImpar = Append[auxImpar, lista[[i]]]
      ];
   ];
  Return[Join[auxPar, auxImpar]]
  ]


Ejercicio3[lista_, i_, j_] := Module[{cont, res},
  res = lista;
  cont = 0;
  While[i + cont <= j,
   res[[i + cont]] = lista[[j - cont]];
   cont++;
   ];
  Return[res]
  ]


Ejercicio4[lista_, n_] := Module[{aux, cont},
  aux = {};
  cont = 0;
  If [n == 0, Return[{}] ];
  While[cont < n,
   aux = Join[aux, lista];
   cont++;
   ];
  Return[aux]
  ]



Ejercicio5[lista_, n_] := Module[{aux, resultado},
  resultado = {};
  aux = 1;
  While[aux < Length[lista],
   If[Count[lista, lista[[aux]]] >= n,
    resultado = Append[resultado, lista[[aux]] ];
    ];
   aux++;
   ];
  Return[DeleteDuplicates[resultado]]
  ]
Ejercicio5[{a, a, a, b, b, b, b, c, c, c, c, c, c}, 4]





Ejercicio6[lista_] := Module[{aux, intermedio, resultado, i, j, k},
   resultado = {};
   aux = lista;
   For[j = 0, j <= Length[lista], j++,
    For[i = 1, i <= Length[intermedio], i++,
     AppendTo[resultado, aux];
     aux = Rest[aux];
     ];
    aux = lista;
    For[k = 1, k <= Length[lista] - j - 1 , k++,
     aux = Most[aux];
     intermedio = aux;
     ];
    ];
   AppendTo[resultado, {Last[lista]}];
   Return[resultado]
   ]


Ej7[lenguaje1_, lenguaje2_] :=
  Module[{resultado, i, j},
   resultado = {};
   For[i = 1, i <=  Length[lenguaje1], i++,
    For[j = 1, j <= Length[lenguaje2], j++,
      AppendTo[resultado , Join[lenguaje1[[i]], lenguaje2[[j]]]
        ];
      ];
    ];
   Return[DeleteDuplicates[resultado]]
   ]



Ejercicio8[lenguaje_, palabra_] := Module[{i, res, long},
   long = Length[palabra];
   res = {};
   (*Print[1];*)
   For[i = 1, i <= Length[lenguaje], i++,
    (*Print[2];*)
    If[Length[lenguaje[[i]]] >= long,
      (*Print[3]*)
      If[palabra == Take[lenguaje[[i]], -long],
        (*Print[4];*)

        AppendTo[res,
          Take[lenguaje[[i]], Length[lenguaje[[i]]] - long]];
        ];
      ];
    ];
   Return[res]
   ];


Ejercicio9[lenguaje_, n_] := Module[{i, resultado},
   resultado = lenguaje;
   If[n == 0, Return[{}],
    For[i = 1, i < n, i++,
      resultado = Ejercicio7[resultado, resultado];
      ];
    ];
   Return[resultado];
   ];