final-hstack-shape ( seq -- shape )


Vocabulary
tensors.private

Inputs
seqan object


Outputs
shapean object


Definition
USING: accessors arrays kernel sequences ;

IN: tensors.private

: final-hstack-shape ( seq -- shape )
dup first shape>> but-last swap [ shape>> last ] map
sum 1array append ;