set-firstn-unsafe ( n -- quot )

Vocabulary

sequences.generalizations

Inputs

n

an object

Outputs

quot

an object

Definition

USING: combinators generalizations kernel math sequences
sequences.private ;

IN: sequences.generalizations

MACRO: set-firstn-unsafe ( n -- quot )
    [ 1 + ]
    [ <iota> [ [ rot [ set-nth-unsafe ] keep ] curry ] map ] bi
    [ [ -nrot ] curry ] dip [ spread drop ] curry compose ;