AE
Size: a a a
AE
SA
SA
SA
SA
AE
AE
SA
SA
a
(defmethod div ((matrix float2x2) scalar)
(make-float2x2
(map 'vector
(ax:rcurry #'/ scalar)
(in-vec matrix))))
a
AE
AE
(defmethod div ((matrix float2x2) scalar)
(make-float2x2
(map 'vector
(ax:rcurry #'/ scalar)
(in-vec matrix))))
AE
AE
a
(declaim (inline mul))
(defun mul (scalar array)
(declare (type single-float scalar))
(map-into (make-array (array-dimensions array)
:element-type (array-element-type array))
(lambda (x)
(declare (type single-float x))
(the single-float (* scalar x)))
array))
(defun div (array scalar)
(declare (type single-float scalar))
(mul (the single-float (/ scalar))
array))
AE
(declaim (inline mul))
(defun mul (scalar array)
(declare (type single-float scalar))
(map-into (make-array (array-dimensions array)
:element-type (array-element-type array))
(lambda (x)
(declare (type single-float x))
(the single-float (* scalar x)))
array))
(defun div (array scalar)
(declare (type single-float scalar))
(mul (the single-float (/ scalar))
array))
a
a
div
для таких объектов, которые тут есть, вызывает на самом деле некоторую тревогу на тему того, что она концептуально бессмысленная.AE