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

hoon: adds +sew, inverse of +cut

Browse Source
This commit is contained in:
Joe Bryan 2020-11-30 17:11:06 -08:00
parent 2cf1c656bf
commit 12bf28e2c8
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkg/arvo/sys/hoon.hoon
View File

@ -928,6 +928,15 @@
|= [a=bloq b=step c=@]
(div c (bex (mul (bex a) b)))
::
++ sew :: stitch into
~/ %sew
|= [a=bloq [b=step c=step d=@] e=@]
^- @
%+ add
(can a b^e c^d ~)
=/ f (add b c)
(lsh a f (rsh a f e))
::
++ swp :: naive rev bloq order
~/ %swp
|= [a=bloq b=@]