external/clem/benchmark/bench-hprod.lisp

   1
   2 (in-package :clem-benchmark)
   3
   4 (let ((m (make-instance 'double-float-matrix :dimensions '(1024 1024) :initial-element 1d0))
   5       (n (make-instance 'double-float-matrix :dimensions '(1024 1024) :initial-element 2d0)))
   6   (with-matrix-benchmark (:hprod-1024-1024/double-float)
   7     (m.* m n)))
   8
   9 (let ((m (make-instance 'single-float-matrix :dimensions '(1024 1024) :initial-element 1s0))
  10       (n (make-instance 'single-float-matrix :dimensions '(1024 1024) :initial-element 2s0)))
  11   (with-matrix-benchmark (:hprod-1024-1024/single-float)
  12     (m.* m n)))
  13
  14 (let ((m (make-instance 'sb8-matrix :dimensions '(1024 1024) :initial-element 1))
  15       (n (make-instance 'sb8-matrix :dimensions '(1024 1024) :initial-element 2)))
  16   (with-matrix-benchmark (:hprod-1024-1024/sb8)
  17     (m.* m n)))
  18
  19 (let ((m (make-instance 'sb16-matrix :dimensions '(1024 1024) :initial-element 1))
  20       (n (make-instance 'sb16-matrix :dimensions '(1024 1024) :initial-element 2)))
  21   (with-matrix-benchmark (:hprod-1024-1024/sb16)
  22     (m.* m n)))
  23
  24 (let ((m (make-instance 'sb32-matrix :dimensions '(1024 1024) :initial-element 1))
  25       (n (make-instance 'sb32-matrix :dimensions '(1024 1024) :initial-element 2)))
  26   (with-matrix-benchmark (:hprod-1024-1024/sb32)
  27     (m.* m n)))
  28
  29 (let ((m (make-instance 'ub8-matrix :dimensions '(1024 1024) :initial-element 1))
  30       (n (make-instance 'ub8-matrix :dimensions '(1024 1024) :initial-element 2)))
  31   (with-matrix-benchmark (:hprod-1024-1024/ub8)
  32     (m.* m n)))
  33
  34 (let ((m (make-instance 'ub16-matrix :dimensions '(1024 1024) :initial-element 1))
  35       (n (make-instance 'ub16-matrix :dimensions '(1024 1024) :initial-element 2)))
  36   (with-matrix-benchmark (:hprod-1024-1024/ub16)
  37     (m.* m n)))
  38
  39 (let ((m (make-instance 'ub32-matrix :dimensions '(1024 1024) :initial-element 1))
  40       (n (make-instance 'ub32-matrix :dimensions '(1024 1024) :initial-element 2)))
  41   (with-matrix-benchmark (:hprod-1024-1024/ub32)
  42     (m.* m n)))
  43