Graphs0 TerminalIO run Graphs0Test _ TerminalIO.WriteRope["==\n"] _ &g _ Graphs0.Create[$somegraph]; _ &n0 _ Graphs0.AddNewNode[&g, $n0]; _ &n1 _ Graphs0.AddNewNode[&g, $n1]; _ &n2 _ Graphs0.AddNewNode[&g, $n2]; _ &n3 _ Graphs0.AddNewNode[&g, $n3]; _ &n4 _ Graphs0.AddNewNode[&g, $n4]; _ &n5 _ Graphs0.AddNewNode[&g, $n5]; _ &n6 _ Graphs0.AddNewNode[&g, $n6]; _ &n7 _ Graphs0.AddNewNode[&g, $n7]; _ &n8 _ Graphs0.AddNewNode[&g, $n8]; _ &n9 _ Graphs0.AddNewNode[&g, $n9]; _ &n10 _ Graphs0.AddNewNode[&g, $n10]; _ &n11 _ Graphs0.AddNewNode[&g, $n11]; _ &a12 _ Graphs0.AddNewArc[&g, $a12, &n1, &n2]; _ &a23 _ Graphs0.AddNewArc[&g, $a23, &n2, &n3]; _ &a34 _ Graphs0.AddNewArc[&g, $a34, &n3, &n4]; _ &a45 _ Graphs0.AddNewArc[&g, $a45, &n4, &n5]; _ &a56 _ Graphs0.AddNewArc[&g, $a56, &n5, &n6]; _ &a36 _ Graphs0.AddNewArc[&g, $a36, &n3, &n6]; _ &a78 _ Graphs0.AddNewArc[&g, $a78, &n7, &n8]; _ &a1011 _ Graphs0.AddNewArc[&g, $a1011, &n10, &n11]; _ &a811 _ Graphs0.AddNewArc[&g, $a811, &n8, &n11]; _ &a102 _ Graphs0.AddNewArc[&g, $a811, &n10, &n2]; _ &a1110 _ Graphs0.AddNewArc[&g, $a1110, &n11, &n0]; _ &a02 _ Graphs0.AddNewArc[&g, $a02, &n0, &n2]; _ &a96 _ Graphs0.AddNewArc[&g, $a96, &n9, &n6]; _ &a94 _ Graphs0.AddNewArc[&g, $a94, &n9, &n4]; _ Graphs0.EnumArcs[&g, Graphs0Test.DeliverArc, NIL] _ TerminalIO.WriteRope["**\n"] _ Graphs0Test.g _ &g; _ Graphs0Test.nodeSetList _ LIST[LIST[&n1], LIST[&n6]]; _ Graphs0Test.TestPath[]; _ Graphs0Test.random _ TRUE _ Graphs0.RandomShuffle[&g]; ΰGraphs0Test.cm Last edited by: Christian Jacobi, September 30, 1986 2:08:43 pm PDT _ Graphs0Test.nodeSetList _ LIST[LIST[&n1], LIST[&n6], LIST[&n4]]; _ Graphs0Test.nodeSetList _ LIST[LIST[&n1], LIST[&n6], LIST[&n8]]; ΚQ˜šœ™Icode™C—Jšœ˜J˜ Jšœ˜J˜J˜Jšœ˜Jšœ"˜"Jšœ$˜$Jšœ$˜$Jšœ$˜$Jšœ$˜$Jšœ$˜$Jšœ$˜$Jšœ$˜$Jšœ$˜$Jšœ$˜$Jšœ$˜$Jšœ&˜&Jšœ&˜&Jšœ/˜/Jšœ/˜/Jšœ/˜/Jšœ/˜/Jšœ/˜/Jšœ/˜/Jšœ/˜/Jšœ5˜5Jšœ2˜2Jšœ2˜2Jšœ4˜4Jšœ/˜/Jšœ/˜/Jšœ/˜/Jšœ/Οkœ˜3Jšœ˜J˜Jšœ˜Jšœ7˜7JšœB™BJšœB™BJšœ˜J˜Jšœ˜Jšœ˜J˜—…—Π