popnode←{                   ⍝ Pop vertex ⍵ to head of graph ⍺.
    new←⍺[⍵,(⍳⍴⍺)~⍵]        ⍝ re-ordering of nodes.
    new+(new≤⍵)-⍵×⍵=new     ⍝ adjustment of edge indices.
}

test script

Back to: notes

Back to: Workspaces

Trouble seeing APL font?