2cleave>quot ( seq -- quot )


Vocabulary
combinators

Inputs
seqan object


Outputs
quotan object


Definition
USING: kernel sequences ;

IN: combinators

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