change-row ( ..a row# quot: ( ..a seq -- ..b seq ) -- ..b )

Vocabulary

math.matrices.elimination

Inputs

row#	an object
quot	a quotation with stack effect ( ..a seq -- ..b seq )

Outputs

None

Definition

USING: kernel namespaces sequences ;

IN: math.matrices.elimination

: change-row
    ( ..a row# quot: ( ..a seq -- ..b seq ) -- ..b )
    matrix get swap change-nth ; inline