i1 : R = QQ[a..g]; |
i2 : H = hyperGraph {b*c*d*e, a*b*c*d, c*d*f, d*g, e*f*g};
|
i3 : getGoodLeaf(H)
o3 = {a, b, c, d}
o3 : List
|
i4 : edges(H)
o4 = {{a, b, c, d}, {b, c, d, e}, {c, d, f}, {d, g}, {e, f, g}}
o4 : List
|
i5 : getGoodLeafIndex(H) o5 = 0 |