shrub/gen/moon.hoon

18 lines
308 B
Plaintext
Raw Normal View History

2015-10-20 21:12:22 +03:00
::
2016-02-05 06:05:37 +03:00
:::: /hoon/moon/gen
2015-10-20 21:12:22 +03:00
::
/? 310
2015-10-20 21:12:22 +03:00
::
::::
!:
:- %say
|= $: {now/@da eny/@uvI bec/beak}
2016-02-17 07:34:06 +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)
2016-02-12 00:53:14 +03:00
=+ tic=.^(@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>}"