retained? ( state -- ? )

Vocabulary

lcs.private

Inputs

state

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel math ;

IN: lcs.private

: retained? ( state -- ? )
    { [ i>> 0 > ] [ j>> 0 > ] [ [ old-nth ] [ new-nth ] bi = ] }
    1&& ;