Hoon yawn

Implementation

++  yawn
  |=  [yer=@ud mot=@ud day=@ud]
  ^-  @ud
  =>  .(mot (dec mot), day (dec day))
  =>  ^+  .
      %=    .
          day
        =+  cah=?:((yelp yer) moy:yo moh:yo)
        |-  ^-  @ud
        ?:  =(0 mot) 
          day 
        $(mot (dec mot), cah (slag 1 cah), day (add day (snag 0 cah)))
      ==
  |-  ^-  @ud
  ?.  =(0 (mod yer 4))
    =+  ney=(dec yer)
    $(yer ney, day (add day ?:((yelp ney) 366 365)))
  ?.  =(0 (mod yer 100))
    $(yer (sub yer 4), day (add day 1.461))
  ?.  =(0 (mod yer 400))
    $(yer (sub yer 100), day (add day 36.524))
  (add day (mul (div yer 400) (add 1 (mul 4 36.524))))

Comments

---

---

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