Hoon hike

Implementation

++  hike 
  ~/  %hike
  |=  [axe=axis pac=(list ,[p=axis q=tool])]
  ^-  tool
  ?~  pac
    [%0 axe]
  =+  zet=(skim pac.$ |=([p=axis q=tool] [=(1 p)]))
  ?~  zet
    =+  tum=(skim pac.$ |=([p=axis q=tool] ?&(!=(1 p) =(2 (cap p)))))
    =+  gam=(skim pac.$ |=([p=axis q=tool] ?&(!=(1 p) =(3 (cap p)))))
    %+  cons
      %=  $
        axe (peg axe 2)
        pac (turn tum |=([p=axis q=tool] [(mas p) q]))
      ==
    %=  $
      axe (peg axe 3)
      pac (turn gam |=([p=axis q=tool] [(mas p) q]))
    ==
  ?>(?=([* ~] zet) q.i.zet)

Comments

---

---

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