urbit/gen/moon.hoon
C. Guy Yarvin fc1068dfae Revert "Stripdown part 2."
This reverts commit afcc1cb9a80db3a687d7a2a1dc3bf1be38df5b68.
2016-01-25 16:52:58 -08:00

17 lines
311 B
Plaintext

::
:::: /hoon+ticket+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>}"