graph-store: use +lien instead of manual recursion
++ check-for-duplicates
|= [=graph:store nodes=(set index:store)]
^- ?
- =/ node-list ~(tap in nodes)
- |-
- ?~ node-list %.n
- ?: (has-node graph i.node-list) %.y
- $(node-list t.node-list)
+ |^
+ %+ lien ~(tap in nodes)
+ |= =index:store
+ (has-node graph index)
::
++ has-node
|= [=graph:store =index:store]
%empty %.n
%graph $(graph p.children.u.node, index t.index)
==
+ --
::
++ sort-nodes
|= nodes=(map index:store node:store)
