<anti-diagonal-matrix> ( diagonal-seq -- matrix )
Matrix operations

Prev:	<diagonal-matrix> ( diagonal-seq -- matrix )
Next:	<identity-matrix> ( n -- matrix )

Vocabulary
math.matrices

Inputs

diagonal-seq

a sequence

Outputs

matrix

a matrix

Word description
Creates a matrix with the specified anti-diagonal. This word has the opposite effect of anti-diagonal.

Notes
To use a diagonal starting in the lower left, reverse the input sequence before calling this word.

Examples

USING: math.matrices prettyprint ; { 1 2 3 } <anti-diagonal-matrix> .
{ { 0 0 1 } { 0 2 0 } { 3 0 0 } }

Definition

USING: kernel math.matrices.private sequences ;

IN: math.matrices

: <anti-diagonal-matrix> ( diagonal-seq -- matrix )
    [ length <zero-square-matrix> ] keep over [ [ dup ] ] dip
    [ nth set-nth-end-unsafe ] curry compose each-index ; inline