$>-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> ] curry ] dip [ firstn ] curry
    [ [ dip ] curry ] dip [ prepend $> ] curry compose ;