(each-integer-with-previous) ( ... prev i n quot: ( ... i -- ... ) -- ... )

Vocabulary

sequences.extras

Inputs

prev	an object
i	an integer
n	an integer
quot	a quotation

Outputs

None

Definition

USING: kernel math shuffle ;

IN: sequences.extras

: (each-integer-with-previous)
    ( ... prev i n quot: ( ... i -- ... ) -- ... )
    2over < [
        [ nip call ] 4keep nipdd [ 1 + ] 2dip
        (each-integer-with-previous)
    ] [ 4drop ] if ; inline recursive