urbit/gen/hood/bonus.hoon

16 lines
289 B
Plaintext
Raw Normal View History

2016-08-12 02:16:05 +03:00
::
:::: /hoon/reinvite/hood/gen
::
/? 310
::
::::
!:
:- %say
2016-08-12 22:25:10 +03:00
|= $: {now/@da eny/@uvJ bec/beak}
2016-08-12 02:16:05 +03:00
{{pas/@uvG opt/$@($~ {planets/@u $@($~ {stars/@u $~})})} $~}
==
?~ opt $(opt [planets=1]~)
?~ +.opt $(+.opt [stars=0]~)
:- %womb-bonus
[(scot %uv pas) planets stars]