blcooley

(ns testincanter.core
  (:import (cern.colt.matrix.tdouble DoubleFactory2D DoubleMatrix2D)
           (cern.jet.random.tdouble.engine DRand)
           (cern.jet.math.tdouble DoubleFunctions)
           (java.util Date)))

(defn test-multi [n]
  (let [xs (.assign (.make DoubleFactory2D/dense n 23) (DRand. (Date.)))]
    (time (let [result (.zMult xs xs nil 1 0 true false)]
            [(.columns result) (.rows result)]))))