(49G) Function of a Matrix

[Gerald H]

Here a second attempt, shorter & faster.

Input is a square matrix & a programme,

eg

[Matrix]
<< LN >>

Code:

::
  CK2&Dispatch
  # 48
  ::
    2DUP
    BINT0
    FPTR2 ^2LAMBIND
    FPTR2 ^PUSHFLAGS_
    FPTR2 ^CLREXACT
    BINT103
    SetSysFlag
    FPTR2 ^MATEGV
    FPTR2 ^XEQARRY>
    INCOMPDROP
    COERCEDUP
    1PUTLAM
    ZERO_DO
    2GETLAM
    EVAL
    1GETLAM
    ROLL
    LOOP
    1GETLAM
    TYPEMATRIX_
    COMPN_
    1GETABND
    DUP
    TWO{}N
    FPTR 3 6B
    OVER
    FPTR2 ^MATINV
    FPTR2 ^MMMULT
    FPTR2 ^MMMULT
    FPTR2 ^POPFLAGS_
    3UNROLL
    xDROP2
  ;
;