graphs: using conjoin.
parent
321186f6c5
commit
0fea91ff94
|
|
@ -14,7 +14,7 @@ IN: graphs
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
: add-vertex ( vertex edges graph -- )
|
: add-vertex ( vertex edges graph -- )
|
||||||
[ [ nest dupd set-at ] curry with each ] if-graph ; inline
|
[ [ nest conjoin ] curry with each ] if-graph ; inline
|
||||||
|
|
||||||
: add-vertex* ( vertex edges graph -- )
|
: add-vertex* ( vertex edges graph -- )
|
||||||
[
|
[
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue