mirror of
https://github.com/urbit/shrub.git
synced 2024-12-13 16:03:36 +03:00
17 lines
310 B
Plaintext
17 lines
310 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>}"
|