expire ( seq -- )

Vocabulary

help.home

Inputs

seq

an object

Outputs

None

Definition

USING: kernel math sequences ;

IN: help.home

: expire ( seq -- )
    [ length recent-count - [ 0 > ] keep ] keep
    [ [ [ 0 ] ] dip ] dip [ delete-slice ] 2curry compose when ;