i.filter(j.f(i,j);upto(0;n)))
j
[i / upto(i+1;j)] else nil fi (recursive)
is mentioned by
| Def adjm_to_adjl(m) == Case(m) Case mk_adjmatrix(n,f) = > mk_adjlist(n, i.filter(j.f(i,j);upto(0;n))) | [adjm_to_adjl] |
In prior sections: graph 1 1
Try larger context:
Graphs