expire ( seq -- )


Vocabulary
help.home

Inputs
seqan 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 ;