nths-quot ( indices -- quot )


Vocabulary
compiler.tree.propagation.transforms

Inputs
indicesan object


Outputs
quotan object


Definition
USING: combinators kernel sequences sequences.generalizations ;

IN: compiler.tree.propagation.transforms

: nths-quot ( indices -- quot )
[ [ [ swap nth ] curry ] map ] [ length ] bi
[ [ cleave ] curry ] dip [ narray ] curry compose ;