Aplicar un programa a los elementos de dos objetos compuestos

Aplicando un programa o comando a los elementos de dos compuestos del mismo tamaño.

En User RPL, puedes aplicar un programa o comando a los elementos de dos compuestos del mismo tamaño con el comando DOLIST.

En System RPL, para evaluar un programa o comando a los elemento de dos compuestos, puedes usar el siguiente NULLNAME

Código:

* Evalúa un programa o comando a los elementos de 2 compuestos
* Entrada:
* Niveles 3,2: Objetos compuestos no vacíos
* Nivel 1: Programa o comando que tome 2 argumentos y devuelva un objeto
* Salida:
* Un compuesto con el mismo número de elementos que el original
*
* Para llamar a la posición del elemento usar INDEX@ #1+
* Para llamar al tamaño del compuesto usa ISTOP@
NULLNAME Prog2a1Comp ( comp1 comp2 prog2a1 -> comp' )
::                ( comp1 comp2 prog2a1 )
OVER              ( comp1 comp2 prog2a1 comp2 )
TYPE              ( comp1 comp2 prog2a1 #tipo )
FLASHPTR 2LAMBIND ( comp1 comp2 )

>R                ( comp1 )
INNERDUP          ( ob11...ob1n #n #n )
ZERO_DO (DO)
                  ( ... #n )
  ROLL            ( ... ob1i )
  RSWAP
  'R              ( ... ob1i ob2i )
  RSWAP
  2GETEVAL        ( ... obi' )
  ISTOP@          ( ... obi' #n )
LOOP
                  ( ob1'...obn' #n )
1GETABND          ( ob1'...obn' #n #tipo )
COMPN_            ( comp' )
;

*************************************

Por ejemplo:

Código:

{ 11. 12. 13. }
{ 100. 200. 300. }
' %+
Prog2a1Comp

Devuelve:

{ 111. 212. 313. }

*************************************

Recuerda que esto no sólo funciona para listas. También funciona para todo tipo de objetos compuestos.