urbit/gen/moon.hoon
2016-02-10 18:58:14 -08:00

17 lines
309 B
Plaintext

::
:::: /hoon/moon/gen
::
/? 314
::
::::
!:
:- %say
|= $: {now/@da eny/@uvI bec/beak}
[$~ $~]
==
:- %noun
?> =(1 (met 5 p.bec))
=+ mon=(mix (lsh 5 1 (end 5 1 eny)) p.bec)
=+ tic=((hard @p) .^(/a/(scot %p p.bec)/tick/(scot %da now)/(scot %p mon)))
"moon: {<`@p`mon>}; ticket: {<tic>}"