Reemplazar un objeto dentro de una matriz de dos dimensiones

CesarV Lun Oct 03, 2011 1:44 pm

Para reemplazar un objeto dentro de una matriz de dos dimensiones, puedes usar el siguiente NULLNAME:

Código:: * Reemplaza un objeto en una matriz de 2 dimensiones * Entrada: * NIVEL 4: Matriz de dos dimensiones * NIVEL 3: Fila donde se colocará el objeto * NIVEL 2: Columna donde se colocará el objeto * NIVEL 1: Objeto que entrará en la matriz. * Salida: * NIVEL 1: Matriz de dos dimensiones modificada * NOTA: También funciona para una lista de listas NULLNAME ReplaceIn2DMATRIX ( 2DMATRIX #f #c ob -> 2DMATRIX' ) :: ( comp #f #c ob ) 4PICK ( comp #f #c ob comp ) TYPE ( comp #f #c ob #tipo ) ' NULLLAM BINT4 NDUPN DOBIND ( comp ) INNERDUP ( 1DMAT1...1DMATm #m #m ) 4GETLAM ( 1DMAT1...1DMATm #m #m #f ) #- ( 1DMAT1...1DMATm #m #m-f ) #2+ROLL ( 1DMAT1...1DMATm #m 1DMATf ) INNERDUP ( 1DMAT1...1DMATm #m ob1...obn #n #n ) 3GETLAM ( 1DMAT1...1DMATm #m ob1...obn #n #n #c ) #- ( 1DMAT1...1DMATm #m ob1...obn #n #n-c ) #2+ROLL ( 1DMAT1...1DMATm #m ob1...obn #n obc ) DROP ( 1DMAT1...1DMATm #m ob1...obn #n ) 2GETLAM ( 1DMAT1...1DMATm #m ob1...obn #n ob ) OVER ( 1DMAT1...1DMATm #m ob1...obn #n ob #n ) 3GETLAM ( 1DMAT1...1DMATm #m ob1...obn #n ob #n #c ) #- ( 1DMAT1...1DMATm #m ob1...obn #n ob #n-c ) #2+UNROLL ( 1DMAT1...1DMATm #m ob1...obn #n ob ) 1GETLAM ( 1DMAT1...1DMATm #m ob1...obn #n #tipo ) COMPN_ ( 1DMAT1...1DMATm #m 1DMATf' ) OVER ( 1DMAT1...1DMATm #m 1DMATf' #m ) 4GETLAM ( 1DMAT1...1DMATm #m 1DMATf' #m #f ) #- ( 1DMAT1...1DMATm #m 1DMATf' #m-f ) #2+UNROLL ( 1DMAT1...1DMATm #m ) 1GETABND ( 1DMAT1...1DMATm #m #tipo ) COMPN_ ( 2DMAT' ) ;

También funciona para una lista de listas.