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

Vocabulary

tensors.private

Inputs

tensor1	a tensor
tensor2	a tensor
quot	a quotation with stack effect ( x y -- z )

Outputs

tensor

a tensor

Definition

USING: accessors sequences typed ;

IN: tensors.private

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