Hoon mo

Implementation

++  mo                                                  ::  make a map
  |*  a=(list)
  =>  .(a `_(homo a)`a)
  =>  .(a `(list ,[p=_-<.a q=_->.a])`a)
  =+  b=*(map _?>(?=(^ a) p.i.a) _?>(?=(^ a) q.i.a))
  (~(gas by b) a)

Comments

---

---

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