lcs-step ( insert delete change same? -- next )

Vocabulary

lcs.private

Inputs

insert	an object
delete	an object
change	an object
same?	an object

Outputs

next

an object

Definition

USING: kernel math math.order ;

IN: lcs.private

: lcs-step ( insert delete change same? -- next )
    1 -1/0. ? + max max ;