shrub/gen/moon.hoon

::  Generate random moon and corresponding ticket
::
::::  /hoon/moon/gen
  ::
/?    310
/-  sole
/+  old-zuse
=,  old-zuse
[. sole]
::
::::
  ::
:-  %ask
|=  $:  {now/@da eny/@uvJ bec/beak}
        $~
        $~
    ==
=/  ran  (clan p.bec)
?:  ?=({?($earl $pawn)} ran)
  %-  sole-so
  :-  %tang  :_  ~
  leaf+"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))
(sole-so [%tang leaf+"ticket: {<`@p`tic>}" leaf+"moon: {<`@p`mon>}" ~])
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`
adds warnings and a confirmation prompt to %/gen/moon 2017-06-18 23:23:20 +03:00			`/- sole`
oldzuse some generators 2017-11-10 03:06:58 +03:00			`/+ old-zuse`
			`=, old-zuse`
adds warnings and a confirmation prompt to %/gen/moon 2017-06-18 23:23:20 +03:00			`[. sole]`
Add moon generator. 2015-10-20 21:12:22 +03:00			`::`
			`::::`
!: in ford files is redundant 2016-11-17 04:42:58 +03:00			`::`
adds warnings and a confirmation prompt to %/gen/moon 2017-06-18 23:23:20 +03:00			`:- %ask`
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			`==`
adds warnings and a confirmation prompt to %/gen/moon 2017-06-18 23:23:20 +03:00			`=/ ran (clan p.bec)`
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			`?: ?=({?($earl $pawn)} ran)`
adds warnings and a confirmation prompt to %/gen/moon 2017-06-18 23:23:20 +03:00			`%- sole-so`
			`:- %tang :_ ~`
			`leaf+"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))`
Removed outdated warning message about moons. 2018-02-23 14:18:42 +03:00			(sole-so [%tang leaf+"ticket: {<`@p`tic>}" leaf+"moon: {<`@p`mon>}" ~])