nths-quot ( indices -- quot )

Vocabulary

compiler.tree.propagation.transforms

Inputs

indices

an object

Outputs

quot

an object

Definition

USING: combinators kernel sequences sequences.generalizations ;

IN: compiler.tree.propagation.transforms

: nths-quot ( indices -- quot )
    [ [ '[ _ swap nth ] ] map ] [ length ] bi
    '[ _ cleave _ narray ] ;