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