gen: add +gall-nonces for reading all next nonces

This commit is contained in:
fang 2022-08-16 23:24:32 +02:00
parent 81f18d13ad
commit 24cf4497e9
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -0,0 +1,11 @@
:: +gall-nonces: print %gall agent subscription nonces, highest-last
::
:- %say
|= [[now=@da eny=@uvJ bec=beak] ~ ~]
:- %noun
^- (list [dude:gall @ud])
%+ sort
%~ tap by
~& bec
.^((map dude:gall @ud) %gf /(scot %p p.bec)//(scot %da now))
|=([[* a=@ud] [* b=@ud]] (lth a b))