mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-18 20:31:40 +03:00
17 lines
311 B
Plaintext
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>}"
|