2016-04-27 00:54:28 +03:00
|
|
|
::
|
|
|
|
|
:::: /hoon/stat-all/womb/mar
|
|
|
|
|
::
|
|
|
|
|
/? 310
|
|
|
|
|
/+ womb
|
|
|
|
|
::
|
|
|
|
|
:::: ~fyr
|
|
|
|
|
::
|
|
|
|
|
|_ all/(map ship stat:womb)
|
|
|
|
|
::
|
|
|
|
|
++ grab :: convert from
|
|
|
|
|
|%
|
|
|
|
|
++ noun (map ship stat:womb) :: clam from %noun
|
|
|
|
|
--
|
|
|
|
|
++ grow
|
|
|
|
|
|%
|
|
|
|
|
++ json
|
|
|
|
|
%- jobe
|
|
|
|
|
%+ turn (~(tap by all))
|
|
|
|
|
|= {a/ship b/stat:womb} ^- {cord ^json}
|
|
|
|
|
:- (crip +:<a>)
|
2016-04-28 01:19:25 +03:00
|
|
|
(jobe live+[%s p.b] dist+(json-dist q.b) ~)
|
|
|
|
|
::
|
|
|
|
|
++ json-dist
|
|
|
|
|
|= a/dist:womb
|
|
|
|
|
%+ joba -.a
|
|
|
|
|
?- -.a
|
2016-04-27 00:54:28 +03:00
|
|
|
$free b+&
|
2016-04-28 01:52:18 +03:00
|
|
|
$owned s+p.a
|
2016-04-28 01:19:25 +03:00
|
|
|
$split json(all p.a)
|
2016-04-27 00:54:28 +03:00
|
|
|
==
|
|
|
|
|
--
|
|
|
|
|
--
|
