cleave>quot ( seq -- quot )


Vocabulary
combinators

Inputs
seqan object


Outputs
quotan object


Definition
USING: kernel sequences ;

IN: combinators

: cleave>quot ( seq -- quot )
[ [ keep ] curry ] map concat [ drop ] [ ] append-as ;