shrub/gen/moon.hoon

17 lines
311 B
Plaintext
Raw Normal View History

2015-10-20 21:12:22 +03:00
::
2015-12-21 00:16:39 +03:00
:::: /hoon+ticket+gen
2015-10-20 21:12:22 +03:00
::
/? 314
::
::::
!:
:- %say
2015-12-20 23:50:45 +03:00
|= $: {now/@da eny/@uvI bec/beak}
2015-12-15 03:45:52 +03:00
[$~ $~]
2015-10-20 21:12:22 +03:00
==
:- %noun
?> =(1 (met 5 p.bec))
=+ mon=(mix (lsh 5 1 (end 5 1 eny)) p.bec)
2015-12-21 00:16:39 +03:00
=+ tic=((hard @p) .^(/a+(scot %p p.bec)/tick+(scot %da now)/(scot %p mon)))
2015-10-20 21:12:22 +03:00
"moon: {<`@p`mon>}; ticket: {<tic>}"