shrub/gen/moon.hoon

::
::::  /hoon/moon/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=.^(@p /a/(scot %p p.bec)/tick/(scot %da now)/(scot %p mon))
"moon: {<`@p`mon>}; ticket: {<tic>}"
Add moon generator. 2015-10-20 21:12:22 +03:00			`::`
fix hoon location header information 2016-02-05 06:05:37 +03:00			`:::: /hoon/moon/gen`
Add moon generator. 2015-10-20 21:12:22 +03:00			`::`
			`/? 314`
			`::`
			`::::`
			`!:`
			`:- %say`
Revert "Stripdown part 2." This reverts commit afcc1cb9a80db3a687d7a2a1dc3bf1be38df5b68. 2016-01-26 03:52:58 +03:00			`\|= $: {now/@da eny/@uvI bec/beak}`
			`[$~ $~]`
Add moon generator. 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)`
fix (some) generators 2016-02-12 00:53:14 +03:00			`=+ tic=.^(@p /a/(scot %p p.bec)/tick/(scot %da now)/(scot %p mon))`
Add moon generator. 2015-10-20 21:12:22 +03:00			"moon: {<`@p`mon>}; ticket: {<tic>}"