urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-30 07:35:19 +03:00
Code Issues Packages Projects Releases Wiki Activity

naive: wip use ordered map for points.nas

Browse Source
This commit is contained in:
yosoyubik 2021-06-09 14:20:58 +02:00
parent 852881eff1
commit 87be8c0e2d
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
pkg/arvo/app/aggregator.hoon
View File

@ -79,6 +79,8 @@
++ resend-time ~m5
::
++ lverb &
::
++ orm ((ordered-map ship point:naive) aor)
--
::
=| state-0
@ -202,11 +204,18 @@
:- %noun
!> ^- (list [=^ship =address:ethereum])
?~ star=(slaw %p wat) ~
%+ murn ~(tap by points.nas)
:: TODO: move to /lib/naive
::
=/ points (gas:orm ~ ~(tap by points.pre))
=/ range
%+ subset:orm points.pre
:: range exclusive [star first-planet-next-star]
:: TODO: make range inclusive? [first-planet last-planet]
::
[`u.star `(cat 3 +(u.star) 0x1)]
%+ turn (tap:orm range)
|= [=ship =point:naive]
^- (unit [=^ship =address:ethereum])
?. =(star (^sein:title ship)) ~
%- some
^- [=^ship =address:ethereum]
:- ship
address:(proxy-from-point:naive %own point)
--