HonradosHP
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

Reemplazar un objeto dentro de un compuesto

Ir abajo

Reemplazar un objeto dentro de un compuesto Empty Reemplazar un objeto dentro de un compuesto

Mensaje  CesarV Dom Oct 02, 2011 4:40 pm

Para reemplazar un objeto dentro de un compuesto, puedes usar el siguiente NULLNAME:

Código:
* Reemplaza un objeto en un compuesto:
* Entrada:
* NIVEL 3: Objeto compuesto
* NIVEL 2: Posición de objeto que será reemplazado
* NIVEL 1: Objeto que entrará en el compuesto.
* Salida:
* NIVEL 1: Objeto compuesto modificado
NULLNAME ReplaceInComp ( comp #i ob -> comp' )
::        ( comp #i ob )
3PICK     ( comp #i ob comp )
TYPE      ( comp #i ob #tipo )
FLASHPTR 3LAMBIND
         ( )
INNERDUP  ( ob1... obn #n #n )
3GETLAM   ( ob1... obn #n #n #i )
#-        ( ob1... obn #n #n-i )
#2+ROLL   ( ob1... obn #n obi )
DROP      ( ob1... obn #n )
2GETLAM   ( ob1... obn #n ob )
OVER      ( ob1... obn #n ob #n )
3GETLAM   ( ob1... obn #n ob #n #i )
#-        ( ob1... obn #n ob #n-i )
#2+UNROLL ( ob1... obn #n )
1GETABND  ( ob1... obn #n #tipo )
COMPN_    ( comp' )
;

- El programa funciona para cualquier objeto compuesto, o sea, para una lista, objeto programa, objeto simbólico o matriz simbólica.

- Recuerda que en el caso de una lista se puede usar el comando PUTLIST.

Direcc.NombreDescripción
2B42A

PUTLIST

( ob #i {} -> {}' )
Reemplaza objeto en la posición indicada. Asume un #i válido
CesarV
CesarV
Admin

Masculino Cantidad de envíos : 133
Localización : Perú
Calculadora : HP 50g
ROM : 2.15

https://sites.google.com/view/cesarv1821

Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.