mirror of
https://github.com/urbit/shrub.git
synced 2024-12-11 11:02:25 +03:00
21 lines
579 B
Plaintext
21 lines
579 B
Plaintext
:: print [len] %ames message-pump timers, sorted by number-per-ship
|
|
::
|
|
:- %say
|
|
|= [[now=@da eny=@uvJ bec=beak] arg=$@(~ [len=@ ~]) ~]
|
|
:- %noun
|
|
::
|
|
=; who
|
|
^- (list [@ta @ud])
|
|
=/ len ?^(arg len.arg 50)
|
|
(scag len (sort ~(tap by who) |=([[@ a=@ud] @ b=@ud] (gth a b))))
|
|
::
|
|
=| who=(map @ta @ud)
|
|
=/ tim .^((list (pair @da duct)) bx+/(scot %p p.bec)//(scot %da now)/debug/timers)
|
|
|- ^+ who
|
|
?~ tim who
|
|
?. &(?=(^ q.i.tim) ?=([%ames %pump ^] i.q.i.tim))
|
|
$(tim t.tim)
|
|
=* her i.t.t.i.q.i.tim
|
|
=/ i (~(gut by who) her 0)
|
|
$(tim t.tim, who (~(put by who) her +(i)))
|