alt*n ( vec n -- vec )

Vocabulary

koszul

Inputs

vec	an object
n	an object

Outputs

vec

an object

Definition

USING: assocs kernel math ;

IN: koszul

: alt*n ( vec n -- vec )
    dup zero? [ 2drop H{ } ] [ [ * ] curry assoc-map ] if ;