cleave* ( n -- quot )
Factor handbook » The language » Combinators » Generalized shuffle words and combinators » Generalized combinators

Prev:	nspread ( quots n -- quot )
Next:	spread* ( n -- quot )

Vocabulary
generalizations

Inputs

n	an integer

Outputs
None

Word description
Like cleave, but instead of taking a single array of quotations, cleaves using quotations taken from the top n elements of the datastack.

Notes
This word can be used with apply-curry to generalize the bi-curry@ bi or tri-curry@ tri dataflow patterns.

Definition

USING: kernel math ;

IN: generalizations

MACRO: cleave* ( n -- quot )
    [ [ ] ] [
        1 - [ [ [ keep ] curry ] dip compose ] n*quot
        [ call ] compose
    ] if-zero ;