ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-22 16:09:13 +03:00
Code Issues Packages Projects Releases Wiki Activity

issuing ship wear leveling

Browse Source
This commit is contained in:
Anton Dyudin 2016-04-12 15:59:36 -07:00
parent 1d16b291f7
commit ce0a1af602
1 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lib/womb.hoon
View File

@ -242,13 +242,16 @@
?~ c [c d]
[(some (rep a b u.c ~)) d]
::
++ in-list
|* {a/(list) b/@u} ^+ [(snag *@ a) b]
=+ c=(lent a)
[(snag (mod b c) a) (div b c)]
::
++ shop-star
|= {nth/@u lax/(list {who/@p * * r/(foil star)})} ^- cursor
?~ lax [~ nth]
=^ out nth
(prefix 3 who.i.lax (~(get fo r.i.lax) nth))
?^ out [out nth]
$(lax t.lax)
?: =(~ lax) [~ nth]
=^ sel nth (in-list lax nth)
(prefix 3 who.sel (~(get fo r.sel) nth))
::
++ shop-planets
|= nth/@u ^- cursor
@ -259,20 +262,16 @@
(shop-planet-gal nth (issuing galaxies.office))
::
++ shop-planet
|= {nth/@u sat/(list {who/@p * q/(foil planet)})} ^- cursor
?~ sat [~ nth]
=^ out nth
(prefix 4 who.i.sat (~(get fo q.i.sat) nth))
?^ out [out nth]
$(sat t.sat)
|= {nth/@u sta/(list {who/@p * q/(foil planet)})} ^- cursor
?: =(~ sta) [~ nth]
=^ sel nth (in-list sta nth)
(prefix 4 who.sel (~(get fo q.sel) nth))
::
++ shop-planet-gal
|= {nth/@u lax/(list {who/@p * * r/(foil star)})} ^- cursor
?~ lax [~ nth]
=^ out nth
(shop-planet nth (issuing-under 3 who.i.lax box.r.i.lax))
?^ out [out nth]
$(lax t.lax)
?: =(~ lax) [~ nth]
=^ sel nth (in-list lax nth)
(shop-planet nth (issuing-under 3 who.sel box.r.sel))
::
++ peek-x-shop
|= tyl/path ^- (unit (unit {$ships (list @p)}))