nspread* ( m n -- quot )

Vocabulary

generalizations

Inputs

m	an object
n	an object

Outputs

quot

an object

Definition

USING: arrays kernel math ranges sequences ;

IN: generalizations

MACRO: nspread* ( m n -- quot )
    [ drop [ ] ] [
        [ * 0 ] [ drop neg ] 2bi <range>
        rest >array dup length <iota> <reversed> [
            [ [ ndip ] curry [ curry ] curry ] dip
            [ ndip ] 2curry
        ] 2map
        [ [ ] concat-as ]
        [ length 1 - [ compose ] <array> concat append ] bi
        [ call ] compose
    ] if-zero ;