graded ( seq -- seq )

Vocabulary

koszul

Inputs

seq

an object

Outputs

seq

an object

Definition

USING: kernel math math.order sequences ;

IN: koszul

: graded ( seq -- seq )
    dup 0 [ length max ] reduce 1 + [ V{ } clone ] replicate
    [ dup length pick nth push ] reduce ;