graded-basis. ( seq -- )

Vocabulary

koszul

Inputs

seq

an object

Outputs

None

Definition

USING: io kernel prettyprint sequences ;

IN: koszul

: graded-basis. ( seq -- )
    [
        "=== Degree " write pprint ": dimension " write
        dup length . [ alt. ] each
    ] each-index ;