Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/unix/volume10/ifp/part01/fproot/demo/MatMul

Text File | 1987-07-05 | 156 b | 12 lines

(*
 * MatMul
 *
 * [matrixA,matrixB] -> matrixAB
 *)
DEF MatMul AS
   {[A,B] := id}
   [A,B|trans] | distr |
   EACH distl |
      EACH Inner END
   END;