home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / IFP05.ZIP / FPDEMO.EXE / MATMUL < prev    next >
Encoding:
Text File  |  1987-02-09  |  168 b   |  12 lines
  1. (*
  2.  * MatMul
  3.  *
  4.  * [matrixA,matrixB] -> matrixAB
  5.  *)
  6. DEF MatMul AS
  7.    {[A,B] := id}
  8.    [A,B|trans] | distr |
  9.    EACH distl |
  10.       EACH Inner END
  11.    END;  
  12.