integer-range-member? ( elt seq -- ? )

Vocabulary

ranges.private

Inputs

elt	an object
seq	an object

Outputs

?

an object

Definition

USING: accessors kernel math sequences ;

IN: ranges.private

:: integer-range-member? ( elt seq -- ? )
    elt integer? seq empty? not and [
        seq step>> zero?
        [ elt seq from>> = ] [
            elt seq from>> -
            seq step>> /mod :> ( index remainder ) remainder
            zero? index 0 >= and index seq length>> < and
        ] if
    ] [ f ] if ;