Vocabulary
tensors.private

Inputs
seqan object


Outputs
shapean object


Definition


:: final-vstack-shape ( seq -- shape )
seq first dims 2 - :> vdim seq 0
[ shape>> vdim swap nth + ] reduce
seq first shape>> clone :> new-shape vdim new-shape set-nth
new-shape ;