yacas mode // example yacas code Graph(edges_IsList) <-- [ Local(v, e, f, t); vertices := {}; ForEach (e, edges) [ If (IsList(e), e := Head(e)); {f, t} := Tail(Listify(e)); DestructiveAppend(vertices, f); DestructiveAppend(vertices, t); ]; Graph(RemoveDuplicates(vertices), edges); ]; 10 # IsGraph(Graph(vertices_IsList, edges_IsList)) <-- True; 20 # IsGraph(_x) <-- False; Edges(Graph(vertices_IsList, edges_IsList)) <-- edges; Vertices(Graph(vertices_IsList, edges_IsList)) <-- vertices; AdjacencyList(g_IsGraph) <-- [ Local(l, vertices, edges, e, op, f, t); l := Association'Create(); vertices := Vertices(g); ForEach (v, vertices) Association'Set(l, v, {}); edges := Edges(g); ForEach(e, edges) [ If (IsList(e), e := Head(e)); {op, f, t} := Listify(e); DestructiveAppend(Association'Get(l, f), t); If (String(op) = "<->", DestructiveAppend(Association'Get(l, t), f)); ]; l; ]; MIME types defined: text/x-yacas (yacas).
