Hoon yule

Implementation

++  yule
  |=  rip=tarp
  ^-  @d
  =+  ^=  sec  ;:  add 
                 (mul d.rip day:yo)
                 (mul h.rip hor:yo)
                 (mul m.rip mit:yo)
                 s.rip
               ==
  =+  ^=  fac  =+  muc=4
               |-  ^-  @
               ?~  f.rip
                 0
               =>  .(muc (dec muc))
               (add (lsh 4 muc i.f.rip) $(f.rip t.f.rip))
  (con (lsh 6 1 sec) fac)

Comments

---

---

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