pike.git / lib / modules / Tools.pmod / Shoot.pmod / MatrixMult.pike

version» Context lines:

pike.git/lib/modules/Tools.pmod/Shoot.pmod/MatrixMult.pike:1:   inherit Tools.Shoot.Test;      constant name="Matrix multiplication";      int size = 100;    - array(array(int)) mkmatrix(int rows, int cols) + array(array(float)) mkmatrix(int rows, int cols)   {    return map(enumerate(rows*cols,1,1),    lambda(int f)    {    return ((float)f)/(rows*cols);    })/cols;   }      void test(int n)   {    Math.Matrix m1 = Math.Matrix(mkmatrix(size, size));    Math.Matrix m2 = Math.Matrix(mkmatrix(size, size));    while (n--) m1=m1*m2;    array q = (array(array(int)))(array)m1;   }      void perform()   {    test(100);   }