ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-05 13:55:54 +03:00
Code Issues Packages Projects Releases Wiki Activity

whitespace

Browse Source
This commit is contained in:
Max G 2015-06-26 22:27:46 +03:00
parent edf700b2a7
commit aaa755d59d
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
arvo/hoon.hoon
View File

@ -5075,11 +5075,10 @@
:: ::
++ srm ++ srm
|= [r=@ b=(list ,@) n=@] :: scryptROMix |= [r=@ b=(list ,@) n=@] :: scryptROMix
?> ?& ?> ?& =((lent b) (mul 2 r))
=((lent b) (mul 2 r)) =(n (bex (dec (xeb n))))
=(n (bex (dec (xeb n)))) (lth n (bex (mul r 16)))
(lth n (bex (mul r 16))) ==
==
=+ [v=*(list (list ,@)) c=0] =+ [v=*(list (list ,@)) c=0]
=. v =. v
|- ^- (list (list ,@)) |- ^- (list (list ,@))
@ -5131,7 +5130,7 @@
?: (gth j l) t ?: (gth j l) t
=+ u=(add s (lsh 3 sl (rep 3 (flop (rpp 3 4 j))))) =+ u=(add s (lsh 3 sl (rep 3 (flop (rpp 3 4 j)))))
=+ f=0 =. f |- ^- @ =+ f=0 =. f |- ^- @
?: (gth k c) f ?: (gth k c) f
=+ q=(hml p pl u ?:(=(k 1) (add sl 4) h)) =+ q=(hml p pl u ?:(=(k 1) (add sl 4) h))
$(u q, f (mix f q), k +(k)) $(u q, f (mix f q), k +(k))
$(t (add t (lsh 3 (mul (dec j) h) f)), j +(j)) $(t (add t (lsh 3 (mul (dec j) h) f)), j +(j))