loop-step ( i j matrix: array old new step -- )

Vocabulary

lcs.private

Inputs

i	an object
j	an object
matrix	an array
old	an object
new	an object
step	an object

Outputs

None

Definition

USING: kernel math sequences.private typed ;

IN: lcs.private

TYPED:: loop-step ( i j matrix: array old new step -- )
    i j 1 + matrix nth-unsafe nth-unsafe i 1 +
    j matrix nth-unsafe nth-unsafe i j matrix nth-unsafe
    nth-unsafe i old nth-unsafe j new nth-unsafe = step call
    i 1 + j 1 + matrix nth-unsafe set-nth-unsafe ; inline