(interior) ( y basis-elt -- i_y[basis-elt] )

Vocabulary

koszul

Inputs

y	an object
basis-elt	an object

Outputs

i_y[basis-elt]

an object

Definition

USING: hashtables kernel sequences ;

IN: koszul

: (interior) ( y basis-elt -- i_y[basis-elt] )
    2dup index dup [ -rot remove associate ] [ 3drop 0 ] if ;