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

Implementation

++  like  |*  a=_,*                                     ::  generic edge
          |=  b=_`*`[(hair) ~]                          ::
          :-  p=(hair -.b)                              ::
          ^=  q                                         ::
          ?@  +.b  ~                                    ::
          :-  ~                                         ::
          u=[p=(a +>-.b) q=[p=(hair -.b) q=(tape +.b)]] ::

Comments



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

Clone this wiki locally