top-beats-side? ( state -- ? )

Vocabulary

lcs.private

Inputs

state

an object

Outputs

?

an object

Definition

USING: accessors kernel math sequences.private ;

IN: lcs.private

: top-beats-side? ( state -- ? )
    [
        [ i>> ] [ j>> 1 - ] [ table>> ] tri nth-unsafe
        nth-unsafe
    ] [
        [ i>> 1 - ] [ j>> ] [ table>> ] tri nth-unsafe
        nth-unsafe
    ] bi > ;