1 USING: timers timers.private calendar concurrency.count-downs
2 concurrency.promises fry kernel math math.order sequences
3 threads tools.test tools.time ;
9 [ first stop-timer count-down ] 2curry 1 seconds later
15 self [ resume ] curry instant later drop
22 [ '[ t _ fulfill ] 2 seconds later drop ]
23 [ 5 seconds ?promise-timeout drop ] bi
24 ] benchmark 1,500,000,000 2,500,000,000 between?
29 '[ 4 _ set-first ] 2 seconds later
36 dup '[ 0 _ [ 1 + ] change-nth ] 3 seconds later
37 [ stop-timer ] [ start-timer ] bi
43 dup '[ 3 seconds sleep 1 _ set-first ] 1 seconds later
44 2 seconds sleep stop-timer
50 dup '[ 1 _ set-first ] 300 milliseconds later
51 150 milliseconds sleep
52 [ restart-timer ] [ 200 milliseconds sleep stop-timer ] bi
57 dup '[ 0 _ [ 1 + ] change-nth ] 200 milliseconds later
58 100 milliseconds sleep restart-timer 300 milliseconds sleep
63 dup '[ 0 _ [ 1 + ] change-nth ] 300 milliseconds 300 milliseconds
64 <timer> dup start-timer
65 700 milliseconds sleep dup restart-timer
66 700 milliseconds sleep stop-timer 500 milliseconds sleep