Restructured raws/rads:og for =^ result order, added /=pals= %ames .^

This commit is contained in:
Anton Dyudin 2014-07-23 14:01:52 -07:00 committed by Anton Dyudin
parent 424fa7398d
commit 7e50755029
2 changed files with 6 additions and 2 deletions

View File

@ -1775,6 +1775,10 @@
?~ gys ~
=+ zet=zest:(ho:(~(um am [now fox]) our) his)
[~ ?:(=(%show i.tyl) >zet< zet)]
?: ?=([%pals ~] tyl)
?. =(our his)
~
[~ pals:(~(um am [now fox]) our)]
?. ?=([%life ~] tyl)
=+ muc=$(tyl [%life ~])
(perm our his ?~(muc 0 (,@ud u.muc)) tyl)

View File

@ -5394,7 +5394,7 @@
++ rads :: random continuation
|= b=@
=+ r=(rad b)
[+>.$(a (shas %og-s r)) r]
[r +>.$(a (shas %og-s r))]
++ raw :: random bits
~/ %raw
|= b=@ ^- @
@ -5411,7 +5411,7 @@
++ raws :: random bits continuation
|= b=@
=+ r=(raw b)
[+>.$(a (shas %og-s r)) r]
[r +>.$(a (shas %og-s r))]
--
++ shaz :: sha-512
|= ruz=@ ^- @