Optimización III - ADEL, AINS, operador IN
Prosiguiendo con nuestra tarea de escribir código más óptimo, voy a nombrar algunas de las funcionalidades más útiles disponibles en xHarbour.

Función ADEL

ADEL( aArray, nPos, lAutoSize )

El parámetro lAutoSize en .T., hace la llamada a ASIZE() internamente, reduciendo la cantidad de código ejecutado.

Función AINS

AINS( aArray, nPos, xDato, lAutoSize )

El parámetro xDato asigna el dato en la posición nPos, evitando tener que hacerlo posteriormente.
El parámetro lAutoSize en .T., hace la llamada a ASIZE() internamente.
Con solo dos parámetros extras en la función se reduce la ejecución de mucho código.

Operador IN o $

Todos seguramente conocen el operador $, que sirve para saber si existe una cadena de caracteres dentro de otra cadena de caracteres.

El operador IN cumple la misma función, de hecho son sinónimos.

Pero se ha extendido el uso de estos operadores para usarlos con arrays y hashes.

La siguiente expresión

IF ASCAN( aArray, xDato ) > 0

se puede reducir a:

IF xDato IN aArray

Próximamente voy a comentar una extensión que tengo hecha asociada a este operador para recuperar la posición donde se encontró el dato.

Los animo a comparar el PCODE generado por las llamadas originales a las funciones con las llamadas optimizadas.

////////////////////////////////////////////////////////////
Function Main()
Local aArray := ARRAY( 10 )

ADEL( aArray, 2 )
ASIZE( aArray, LEN( aArray ) - 1 )

ASIZE( aArray, LEN( aArray ) + 1 )
AINS( aArray, 5 )
aArray[ 5 ] := 10

IF ASCAN( aArray, 10 ) > 0
? "Lo encontre"
ENDIF
RETURN
////////////////////////////////////////////////////////////
Function Main()
Local aArray := ARRAY( 10 )

ADEL( aArray, 2, .T. )

AINS( aArray, 5, 10, .T. )

IF 10 IN aArray
? "Lo encontre"
ENDIF
RETURN
- escrito por Walter Negro @ 4:44 p. m.