SoloCodigo

tengo una duda sobre el siguiente codigo:

procedure visual (cadena:string);
begin
write(copy(cadena,1,1);
if cadena <> copy(cadena,lenght(cadena),1) then
                                          begin
                                           visual(copy(cadena,2,lenght(cadena)));
                                           write(copy(cadena,1,1))
                                           end;
                                 else
                                           write(copy(cadena,1,1);
end;
Lo que hace este codido dado una palabra escribe esa palabra y la inversa todo junto
Ej: mariposa
    salida del mensaje : mariposaasopiram
Bueno aca va mi pregunta segun me dijieron en la recursividad no es eficiente cuando usas otras funciones dentro de la recursividad? esto es verdad agradeceria su ayuda

tengo una duda sobre el siguiente codigo:

procedure visual (cadena:string);
begin
write(copy(cadena,1,1);
if cadena <> copy(cadena,lenght(cadena),1) then
                                          begin
                                           visual(copy(cadena,2,lenght(cadena)));
                                           write(copy(cadena,1,1))
                                           end;
                                 else
                                           write(copy(cadena,1,1);
end;
Lo que hace este codido dado una palabra escribe esa palabra y la inversa todo junto
Ej: mariposa
    salida del mensaje : mariposaasopiram
Bueno aca va mi pregunta segun me dijieron en la recursividad no es eficiente cuando usas otras funciones dentro de la recursividad? esto es verdad agradeceria su ayuda

Cada vez que se anidan llamadas recursivas se tienen que copiar todos los parámetros de la función a la pila antes de hacer la llamada recursiva y luego volver a sacarlos de la pila y copiarlos a su posición de memoria original. Esto consume tiempo de CPU y memoria en los apilamientos sucesivos.

Si puedes convertirlo en iterativo te ahorras todos esos apilamientos. En tu ejemplo pasas como parámetro una cadena, asi que cada vez que se anida tu proceso recursivo se hace una copia de esta cadena y se guarda en la pila.  

Otro lio es ese "write" que apenas escribe un caracter en medio de tu código recursivo. Así tu código sea recursivo o iterativo, utilizar un "write" para escribir un sólo caracter es desperdiciar recursos. Mejor guarda tu resultado en memoria, en otra cadena, y al final muestra en pantalla el resultado final con un solo write.