throttle ( quot millis -- quot' )


Vocabulary
combinators.extras

Inputs
quotan object
millisan object


Outputs
quot'an object


Definition
USING: kernel math sequences.private system ;

IN: combinators.extras

: throttle ( quot millis -- quot' )
1000000 *
[ [ nano-count { 0 } 2dup first-unsafe ] curry ] dip
[ + >= [ 0 swap set-nth-unsafe call ] [ 3drop ] if ] curry
compose ; inline