t-bop ( tensor1: tensor tensor2: tensor quot: ( x y -- z ) -- tensor: tensor )


Vocabulary
tensors.private

Inputs
tensor1a tensor
tensor2a tensor
quota quotation with stack effect ( x y -- z )


Outputs
tensora tensor


Definition


TYPED:: t-bop
( tensor1: tensor tensor2: tensor quot: ( x y -- z ) -- tensor: tensor )
tensor1 shape>> tensor2 shape>> check-bop-shape
tensor1 vec>> tensor2 vec>> quot 2map <tensor> ; inline