>tensor ( seq -- tensor )
Tensors » Creating Tensors

Prev:	tensor>array ( tensor: tensor -- seq: array )
Next:	t{

Vocabulary
tensors

Inputs

seq	a sequence

Outputs

tensor

a tensor

Word description
Turns a nested sequence seq into a tensor of the corresponding shape. Assumes a uniformly nested sequence.

Errors
Throws a non-uniform-seq-error if the given sequence have subsequences of varying lengths. Throws a lexer-error if the given sequence is not uniformly nested.

Definition

USING: kernel math sequences tensors.private ;

IN: tensors

:: >tensor ( seq -- tensor )
    seq { } find-shape :> shape seq shape length 1 -
    [ drop concat ] each-integer
    :> flatseq shape product flatseq length =
    [ seq non-uniform-seq-error ] unless
    shape flatseq >float-array <tensor> ;