Skip to content
Adam Bliss edited this page Oct 25, 2013 · 1 revision

Implementation

++  here
  ~/  %here
  |*  [hez=_|=([a=pint b=*] [a b]) sef=_rule]
  ~/  %fun
  |=  tub=nail
  =+  vex=(sef tub)
  ?@  q.vex
    vex
  [p=p.vex q=[~ u=[p=(hez [p.tub p.q.u.q.vex] p.u.q.vex) q=q.u.q.vex]]]

Comments



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

Clone this wiki locally