shift-stack ( n stack -- stack' )

Vocabulary

compiler.cfg.stacks.padding

Inputs

n	an object
stack	an object

Outputs

stack'

an object

Definition

USING: arrays kernel math math.order sequences sets ;

IN: compiler.cfg.stacks.padding

: shift-stack ( n stack -- stack' )
    first2 pick [ + ] curry map [ 0 >= ] filter pick 0 max
    <iota> union [ + ] dip 2array ;