packing ( n -- quot )

Vocabulary

assocs.extras.private

Inputs

n

an object

Outputs

quot

an object

Definition

USING: kernel math sequences.generalizations ;

IN: assocs.extras.private

: packing ( n -- quot )
    dup 1 > [ [ narray ] curry ] [ drop [ ] ] if ;