> (vertices g) (1 2 3 4 5 6) > (children 1 g) (2 3) > (edge? 1 2 g) (2 3) > > (childless g) (4) > (parents 1 g) () > (parents 2 g) (1 5 6) > (symmetric? g) #f > (symmetric? '((1 2 3) (2 1) (3 1))) #t > (dfs-path? 1 4 g) [image] Interactions disabled; out of memory > (dfs-path? 1 3 '((1 2) (2 3 4) (3 4))) #t > (dfs-path? 4 1 '((1 2) (2 3 4) (3 4) (4))) #t > (dfs-path? 4 1 '((1 2) (2 3 4) (3 4) (4))) #f > (dfs-path? 1 3 '((1 2) (2 3 4) (3 4) (4))) #t > (dfs-path 1 3 '((1 2) (2 3 4) (3 4) (4))) (1 2 3) > (dfs-path 1 4 '((1 2 3) (2 4) (3 4) (4))) (1 2 4) > (dfs-path 1 3 '((1 2 3) (2 4) (3 4) (4))) (1 2 4 . #f) > (dfs-path 1 3 '((1 2 3) (2 4) (3 4) (4))) (1 3) > (dfs-path 1 4 '((1 2 3) (2 4) (3 4) (4))) (1 2 4) > (dfs-path 4 1 '((1 2 3) (2 4) (3 4) (4))) #f > (dfs-path 4 1 '((1 2 3) (2 4) (3 4) (4))) #f > (dfs-path 4 1 '((1 2 3) (2 4) (3 4) (4))) #f > (dfs-path 1 3 '((1 2 3) (2 4) (3 4) (4))) (3 1) > > (dfs-path 4 1 '((1 2 3) (2 4) (3 4) (4))) #f > (dfs-path 1 3 '((1 2 3) (2 4) (3 4) (4))) (1 3) > (dfs-path 1 6 g) [image] Interactions disabled; out of memory > (dfs-path 1 6 g) (1 2 3 5 6) > (bfs-path? 1 6 g) #t > (bfs-path? 6 1 g) [image] [image] user break > (bfs-path? 6 1 g) [image] [image] user break > (dfs-path 1 6 g) (1 2 3 5 6) > (bfs-path? 1 6 g) (6) > (extend '(3 1) g) ((4 3 1) (5 3 1)) > > (extend-acyclic '(3 1) g) ((4 3 1) (5 3 1)) > (extend-acyclic '(4 3 1) g) () > (extend-acyclic '(5 3 1) g) ((2 5 3 1) (4 5 3 1) (6 5 3 1)) > (extend-acyclic '(2 5 3 1) g) () > (extend'(2 5 3 1) g) ((3 2 5 3 1))