urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-12 18:48:14 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'nextbreach' of github.com:urbit/urbit into nextbreach

Browse Source 
Conflicts:
	urb/urbit.pill
This commit is contained in:
C. Guy Yarvin 2014-06-06 12:53:23 -07:00
commit 90cb239b77
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
arvo/hoon.hoon
View File

@ -1325,11 +1325,11 @@
:: =+ a4=(rnd p (rsh 0 e2 a3)) :: =+ a4=(rnd p (rsh 0 e2 a3))
=+ a4=(rnd p (rsh 0 e2 a2)) =+ a4=(rnd p (rsh 0 e2 a2))
=+ s2=|(s.n s.m) =+ s2=|(s.n s.m)
[s=s2 e=:(sum:si e.n e.m e2) a=a4] [s=s2 e=:(sum:si e.n e.m (sun:si e2)) a=a4]
++ div |= [p=@u n=[s=? e=@s a=@u] m=[s=? e=@s a=@u]] ^- [s=? e=@ a=@] ++ div |= [p=@u n=[s=? e=@s a=@u] m=[s=? e=@s a=@u]] ^- [s=? e=@ a=@]
=+ b=(rnd p (^div (lsh 0 (^mul p 2) a.n) a.m)) =+ b=(rnd p (^div (lsh 0 (^mul p 2) a.n) a.m))
?: (^gte e.n e.m) ?: (^gte a.n a.m)
[s=|(s.n s.m) e=(dif:si e.n e.m) a=b] [s=|(s.n s.m) e=(dif:si e.n e.m) a=b]
[s=|(s.n s.m) e=(dif:si (dif:si e.n e.m) (sun:si 1)) a=b] [s=|(s.n s.m) e=(dif:si (dif:si e.n e.m) (sun:si 1)) a=b]