Transpuesta de una lista de listas

El siguiente programa halla la transpuesta de una lista de listas.

Este programa reduce el tiempo aproximadamente a la cuarta parte respecto al comando TRAN de User RPL.

Código:

* TRANSPUESTA PARA UNA LISTA DE LISTAS
* TAMBIEN FUNCIONA EN UNA MATRIZ DE 2 DIMENSIONES
NULLNAME Transpuesta ( {{}} -> {{}} )
::          ( {{}} )
INNERCOMP  ( meta )
DUP        ( meta #n )
3PICK
TYPE        ( meta #n #tipo )
ZEROZEROTWO DOBIND
            ( meta )
OVER
LENCOMP    ( meta #c>f )
#1+_ONE_DO
            ( meta )
      DUP#0_DO

            2GETLAM
    #1+PICK
    JINDEX@
    NTHCOMPDROP
  LOOP
 
  2GETLAM
  1GETLAM
  COMPN_
  OVER#2+UNROL
LOOP

#1-
NDROP    ( fila1...filan {} )
LENCOMP  ( fila1...filan #n )
1GETABND ( fila1...filan #n #tipo )
COMPN_  ( {{}} )
;

Nota: También funciona para una matriz de dos dimensiones.