linear-op ( vec quot -- vec )

Vocabulary

koszul

Inputs

vec	an object
quot	an object

Outputs

vec

an object

Definition

USING: assocs kernel ;

IN: koszul

: linear-op ( vec quot -- vec )
    [ [ -rot [ swap call ] dip alt*n (alt+) ] curry assoc-each ]
    with-terms ; inline