adjacent-differences ( seq -- seq' )

Vocabulary

sequences.extras

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: kernel math sequences ;

IN: sequences.extras

: adjacent-differences ( seq -- seq' )
    f swap [ over [ [ swap - ] keep swap ] [ nip dup ] if ] map
    nip ;