2016-04-27 00:54:28 +03:00
|
|
|
::
|
|
|
|
|
:::: /hoon/stat-all/womb/mar
|
|
|
|
|
::
|
|
|
|
|
/? 310
|
2017-11-30 00:28:33 +03:00
|
|
|
/+ hood-womb, old-zuse
|
2016-04-27 00:54:28 +03:00
|
|
|
::
|
|
|
|
|
:::: ~fyr
|
|
|
|
|
::
|
2017-02-14 03:02:25 +03:00
|
|
|
=, old-zuse
|
2017-11-30 00:28:33 +03:00
|
|
|
|_ all/(map ship stat:hood-womb)
|
2016-04-27 00:54:28 +03:00
|
|
|
::
|
|
|
|
|
++ grab :: convert from
|
|
|
|
|
|%
|
2017-11-30 00:28:33 +03:00
|
|
|
++ noun (map ship stat:hood-womb) :: clam from %noun
|
2016-04-27 00:54:28 +03:00
|
|
|
--
|
|
|
|
|
++ grow
|
|
|
|
|
|%
|
|
|
|
|
++ json
|
|
|
|
|
%- jobe
|
2017-02-13 23:43:18 +03:00
|
|
|
%+ turn ~(tap by all)
|
2017-11-30 00:28:33 +03:00
|
|
|
|= {a/ship b/stat:hood-womb} ^- {cord ^json}
|
2016-04-27 00:54:28 +03:00
|
|
|
:- (crip +:<a>)
|
2016-04-28 01:19:25 +03:00
|
|
|
(jobe live+[%s p.b] dist+(json-dist q.b) ~)
|
|
|
|
|
::
|
|
|
|
|
++ json-dist
|
2017-11-30 00:28:33 +03:00
|
|
|
|= a/dist:hood-womb
|
2016-04-28 01:19:25 +03:00
|
|
|
%+ 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
|
|
|
==
|
|
|
|
|
--
|
|
|
|
|
--
|
