remlink←{                               ⍝ Remove edge ⍵ from graph ⍺.
    graph←⍺ ⋄ fm to←⍵                   ⍝ graph and edge.
    {graph}(fm⊃graph)←(fm⊃graph)~to     ⍝ remove link from vertex.
}

test script

Back to: notes

Back to: Workspaces

Trouble seeing APL font?