t-uop ( tensor: tensor quot: ( x -- y ) -- tensor: tensor )

Vocabulary

tensors.private

Inputs

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

Outputs

tensor

a tensor

Definition

USING: accessors kernel sequences typed ;

IN: tensors.private

TYPED:: t-uop
    ( tensor: tensor quot: ( x -- y ) -- tensor: tensor )
    tensor vec>> quot map [ tensor shape>> ] dip <tensor> ;
    inline