packer ( seq -- quot )

Vocabulary

memoize.private

Inputs

seq

an object

Outputs

quot

an object

Definition

USING: arrays kernel math sequences ;

IN: memoize.private

: packer ( seq -- quot )
    length dup 4 <=
    [ { [ f ] [ ] [ 2array ] [ 3array ] [ 4array ] } nth ]
    [ { } [nsequence] ] if ;