blob: b87f734bd5bc5bd81da69bdfa3b314cc7f9be28d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
discard """
output: '''a
b
c'''
cmd: "nim c --gc:arc $file"
"""
# bug #18469
type
Edge = object
neighbor {.cursor.}: Node
NodeObj = object
neighbors: seq[Edge]
label: string
visited: bool
Node = ref NodeObj
Graph = object
nodes: seq[Node]
proc `=destroy`(x: var NodeObj) =
echo x.label
`=destroy`(x.neighbors)
`=destroy`(x.label)
proc addNode(self: var Graph; label: string): Node =
self.nodes.add(Node(label: label))
result = self.nodes[^1]
proc addEdge(self: Graph; source, neighbor: Node) =
source.neighbors.add(Edge(neighbor: neighbor))
proc main =
var graph: Graph
let nodeA = graph.addNode("a")
let nodeB = graph.addNode("b")
let nodeC = graph.addNode("c")
graph.addEdge(nodeA, neighbor = nodeB)
graph.addEdge(nodeA, neighbor = nodeC)
main()
|