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

Added set merge to nextbreach.

Browse Source
This commit is contained in:
pcmonk 2014-06-11 10:12:10 -07:00
parent 3ed474f011
commit 437d7a9146
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
arvo/hoon.hoon
View File

@ -1648,6 +1648,22 @@
$(a l.a) $(a l.a)
$(a r.a) $(a r.a)
:: ::
+- mer :: puts b in a, sorted
~/ %mer
|* b=_a
|- ^+ a
?~ b
a
?~ a
b
?. (vor n.a n.b)
$(a b, b a)
?: =(n.b n.a)
[n.a $(a l.a, b l.b) $(a r.a, b r.b)]
?: (hor n.b n.a)
$(a [n.a $(a l.a, b [n.b l.b ~]) r.a], b r.b)
$(a [n.a l.a $(a r.a, b [n.b ~ r.b])], b l.b)
::
+- put :: puts b in a, sorted +- put :: puts b in a, sorted
~/ %put ~/ %put
|* b=* |* b=*