trace-diff ( old new table -- diff )

Vocabulary

lcs.private

Inputs

old	an object
new	an object
table	an object

Outputs

diff

an object

Definition

USING: kernel make math sequences ;

IN: lcs.private

: trace-diff ( old new table -- diff )
    [ ] [ first length 1 - ] [ length 1 - ] tri trace-state boa
    [ (trace-diff) ] { } make reverse! ;