Added set merge to nextbreach.

2024-12-12 10:29:01 +03:00 · 2014-06-11 10:12:10 -07:00 · 2014-06-11 10:12:10 -07:00 · 437d7a9146
commit 437d7a9146
parent 3ed474f011
1 changed files with 16 additions and 0 deletions
--- a/arvo/hoon.hoon
+++ b/arvo/hoon.hoon
@ -1648,6 +1648,22 @@
      $(a l.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
    |*  b=*