run-lcs ( old new init step -- matrix )


Vocabulary
lcs.private

Inputs
oldan object
newan object
initan object
stepan object


Outputs
matrixan object


Definition
USING: kernel math sequences ;

IN: lcs.private

:: run-lcs ( old new init step -- matrix )
old length 1 + new length 1 + init call
:> matrix old length <iota> [| i |
new length <iota>
[| j | i j matrix old new step loop-step ] each
] each matrix ; inline