cleave>quot ( seq -- quot )

Vocabulary

combinators

Inputs and outputs

seq	an object
quot	an object

Definition

USING: kernel sequences ;

IN: combinators

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