Hoon dis

Implementation

++  dis                                                 ::  binary and
  ~/  %dis
  |=  [a=@ b=@]
  =+  [c=@ d=@]
  |-  ^-  @
  ?:  ?|(=(0 a) =(0 b))
    d
  %=  $
    a   (rsh 0 1 a)
    b   (rsh 0 1 b)
    c   +(c)
    d   (add d (lsh 0 c ?|(=(0 (end 0 1 a)) =(0 (end 0 1 b)))))
  ==

Comments

---

---

Parts of this document are generated automatically. Edits within the comments section will be preserved.