Hoon con

Jump to bottom Edit New page

Adam Bliss edited this page Oct 25, 2013 · 1 revision

Implementation

++  con                                                 ::  binary or
  ~/  %con
  |=  [a=@ b=@]
  =+  [c=0 d=0]
  |-  ^-  @
  ?:  ?&(=(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.

Hoon
- Functions

Clone this wiki locally