$>-n* ( int -- quot )

Vocabulary

models.combinators

Inputs

int

an object

Outputs

quot

an object

Definition

USING: kernel monads sequences sequences.generalizations ;

IN: models.combinators

MACRO: $>-n* ( int -- quot )
    dup [ [ narray <collection> #1 ] curry ] dip
    [ firstn ] curry [ [ dip ] curry ] dip [ prepend $> ] curry
    compose ;