alternating-sign ( seq odd-elts? -- seq' )

Vocabulary

math.matrices.extras.private

Inputs

seq	an object
odd-elts?	an object

Outputs

seq'

an object

Definition

USING: kernel math sequences ;

IN: math.matrices.extras.private

: alternating-sign ( seq odd-elts? -- seq' )
    [ [ even? ] ] dip [ = [ neg ] unless ] curry compose
    map-index ;