ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-11 16:09:31 +03:00
Code Issues Packages Projects Releases Wiki Activity

256 bit hashes for objects...

Browse Source
This commit is contained in:
Jared Hance 2014-08-01 12:40:19 -04:00
parent e48181b23e
commit 83e0291f99
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
arvo/zuse.hoon
View File

@ -1007,7 +1007,10 @@
++ zoal :: make yaki
|= [p=(list tako) q=(map path lobe) t=@da]
^- yaki
[p q (mug [%yaki (roll p add) q t]) t] :: later quicksort?
=+ ^= has
%^ cat 7 (sham [%yaki (roll p add) q t])
(sham [%tako (roll p add) q t])
[p q has t]
::
++ zaal :: grab blob
|= p=lobe :: (raw)
@ -1031,7 +1034,11 @@
|= [p=lobe q=udon]
^- blob
=+ t=[%delta 0 p q]
[%delta (mug [%blob (zaru t)]) p q]
=+ z=(zaru t)
=+ ^= has
%^ cat 7 (sham [%blob z])
(sham [%lobe z])
[%delta has p q]
::
++ zeul :: make blob
|= [p=* q=umph]