levenshtein-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

: levenshtein-step ( insert delete change same? -- next )
    [ [ 1 + ] bi@ ] 2dip [ 1 + ] unless min min ;