return pos;
}
+char *jacu_mtf_inv(char *z, int *pos, int len)
+{
+ char *datos;
+ int i;
+
+ datos = (char*)malloc(sizeof(char)*len);
+ for(i=0; i<len; i++){
+ datos[i] = z[pos[i]];
+ pop_front(z,pos[i]);
+ }
+ return datos;
+}
char *jacu_buscar_z(char* datos, int len, int *size)
{