mirror of
https://github.com/urbit/shrub.git
synced 2024-11-30 01:33:53 +03:00
35 lines
650 B
Plaintext
35 lines
650 B
Plaintext
::
|
|
:::: /hoon/stat-all/womb/mar
|
|
::
|
|
/? 310
|
|
/+ hood-womb, old-zuse
|
|
::
|
|
:::: ~fyr
|
|
::
|
|
=, old-zuse
|
|
|_ all/(map ship stat:hood-womb)
|
|
::
|
|
++ grab :: convert from
|
|
|%
|
|
++ noun (map ship stat:hood-womb) :: clam from %noun
|
|
--
|
|
++ grow
|
|
|%
|
|
++ json
|
|
%- jobe
|
|
%+ turn ~(tap by all)
|
|
|= {a/ship b/stat:hood-womb} ^- {cord ^json}
|
|
:- (crip +:<a>)
|
|
(jobe live+[%s p.b] dist+(json-dist q.b) ~)
|
|
::
|
|
++ json-dist
|
|
|= a/dist:hood-womb
|
|
%+ joba -.a
|
|
?- -.a
|
|
$free b+&
|
|
$owned s+p.a
|
|
$split json(all p.a)
|
|
==
|
|
--
|
|
--
|