shrub/gen/moon.hoon

::  Generate random moon and corresponding ticket
::
::::  /hoon/moon/gen
  ::
/?    310
::
::::
  !:
:-  %say
|=  $:  {now/@da eny/@uvJ bec/beak}
        $~
        $~
    ==
:-  %tang  :_  ~  :-  %leaf
=+  ran=(clan p.bec)
?:  ?=({?($earl $pawn)} ran)
  "can't create a moon from a {?:(?=($earl ran) "moon" "comet")}"
=+  mon=(mix (lsh 5 1 (end 5 1 eny)) p.bec)
=+  tic=.^(@ /a/(scot %p p.bec)/tick/(scot %da now)/(scot %p mon))
"moon: {<`@p`mon>}; ticket: {<`@p`tic>}"
added one-line info to all generators 2016-10-22 02:44:39 +03:00			`:: Generate random moon and corresponding ticket`
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			`::`
formal reponsibility taken gen/ 314->310 2016-02-17 04:40:32 +03:00			`/? 310`
Add moon generator. 2015-10-20 21:12:22 +03:00			`::`
			`::::`
			`!:`
			`:- %say`
Double system entropy size 2016-08-11 21:15:06 +03:00			`\|= $: {now/@da eny/@uvJ bec/beak}`
151ize +moon args 2016-02-17 07:34:06 +03:00			`$~`
			`$~`
Add moon generator. 2015-10-20 21:12:22 +03:00			`==`
updates +moon to produce an error message instead of a stack trace ...when run from a moon or comet also replaces binary math with `++clan`, allows ~zod to ticket, and uses %tang/%leaf instead of %noun 2016-06-17 05:09:31 +03:00			`:- %tang :_ ~ :- %leaf`
			`=+ ran=(clan p.bec)`
			`?: ?=({?($earl $pawn)} ran)`
			`"can't create a moon from a {?:(?=($earl ran) "moon" "comet")}"`
Add moon generator. 2015-10-20 21:12:22 +03:00			`=+ mon=(mix (lsh 5 1 (end 5 1 eny)) p.bec)`
Better handling of .^ in ames and ++mink 2016-02-19 00:44:17 +03:00			`=+ tic=.^(@ /a/(scot %p p.bec)/tick/(scot %da now)/(scot %p mon))`
			"moon: {<`@p`mon>}; ticket: {<`@p`tic>}"