change-row ( ..a row# quot: ( ..a seq -- ..b seq ) -- ..b ) (original) (raw)
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 ;
: change-row
( ..a row# quot: ( ..a seq -- ..b seq ) -- ..b )
matrix get swap change-nth ; inline