narray-quot ( length -- quot )

Vocabulary

compiler.cfg.gvn.expressions

Inputs

length

an object

Outputs

quot

an object

Definition

USING: arrays kernel make math sequences sequences.private ;

IN: compiler.cfg.gvn.expressions

: narray-quot ( length -- quot )
    [
        [ , [ f <array> ] % ] [
            dup <iota>
            [ - 1 - , [ swap [ set-array-nth ] keep ] % ] with
            each
        ] bi
    ] [ ] make ;