add xeb for no particular reason

2025-01-05 19:46:50 +03:00 · 2014-05-01 22:41:33 -07:00 · 2014-05-01 22:41:33 -07:00 · 78544486c3
commit 78544486c3
parent 6ebf16f2ff
1 changed files with 6 additions and 0 deletions
--- a/arvo/hoon.hoon
+++ b/arvo/hoon.hoon
@ -798,6 +798,12 @@
    1
  (mul 2 $(a (dec a)))
 ::
++  xeb                                                 ::  binary logarithm
+  ::  ~/  %xeb
+  |=  a=@
+  ^-  @
+  (met 0 a)
+::
 ++  can                                                 ::  assemble
  ~/  %can
  |=  [a=bloq b=(list ,[p=@ q=@])]