Добре дошли в DrRacket, версия 7.1 [3m].
Език: R5RS [потребителски]; memory limit: 128 MB.
> 
> (children 7 g)
#f
> (children 3 g)
(4 6)
> (childless g)
()
> (childless g2)
(6)
> (parents 1 g)
> (parents 1 g)
(4)
> (parents 2 g)
(1)
> (parents 3 g)
(1 2 5)
> (map-edges cons g)
(((1 . 2) (1 . 3))
 ((2 . 3) (2 . 6))
 ((3 . 4) (3 . 6))
 ((4 . 1) (4 . 5))
 ((5 . 3))
 ((6 . 5)))
((1 . 2) (1 . 3) (2 . 3) (2 . 6) (3 . 4) (3 . 6) (4 . 1) (4 . 5) (5 . 3) (6 . 5))
> g
((1 2 3) (2 3 6) (3 4 6) (4 1 5) (5 3) (6 5))
> (apply append g)
(1 2 3 2 3 6 3 4 6 4 1 5 5 3 6 5)
> (search-edges (lambda (u v) (eq? u 1)) g)
#t
> (search-edges (lambda (u v) (and (eq? u 1) (cons u v))) g)
(1 . 2)
> (symmetric? g)
#f
> (symmetric? '((1 2 3) (2 1) (3 1 4) (4 3)))
(1)
> (symmetric? '((1 2 3) (2 1) (3 1 4)))
(1)
> (deep-fold 0 (lambda (x) 1) + dl)

> (symmetric? g)
#f
> (symmetric? g2)
#f
> (symmetric? '((1 2 3) (2 1) (3 1 4) (4)))
#f
> (symmetric? '((1 2 3) (2 1) (3 1 4) (4 3)))
#t
> (symmetric? '((1 2 3) (2 1) (3 1 4) (4)))
#f
> (symmetric? '((1 2 3) (2 1) (3 1 4) (4 3)))
#t
> (symmetric? g2)
#f
> (symmetric? g)
#f
> (symmetric? '((1 2 3) (2 1) (3 1) (4 3)))
#f
> (symmetric? '((1 2 3) (2 1) (3 4) (4 3)))
#t
> (symmetric? g)
[image] [image] all: undefined;
 cannot reference an identifier before its definition
> (symmetric? g)
#f
> (symmetric? g2)
#f
> (symmetric? '((1 2 3) (2 1) (3 1) (4 3)))
#f
> (symmetric? '((1 2 3) (2 1) (3 1 4) (4 3)))
#t
> (symmetric? '((1 2 3) (2 1) (3 1 4) (4)))
#f
> (path-dfs 1 6 g3)
#t
> (path-dfs 1 6 g3)
(1 2 3 6)
> (path-dfs 1 6 g3)
(1 2 3 6)
> (path-dfs 1 6 g)
(1 2 3 6)
> (path-dfs 6 1 g2)
#f
> (path-dfs 1 6 g)
((1))
> (path-dfs 1 5 g)
((1))
> (extend '(2 1) g)
((3 2 1) (6 2 1))
> (extend '(4 3 2 1) g)
((1 4 3 2 1) (5 4 3 2 1))
> (extend-acyclic '(4 3 2 1) g)
((5 4 3 2 1))
> (path-bfs 1 6 g)
(1 2 6)
> (path-dfs 1 6 g)
(1 2 3 6)
> (path-dfs 6 1 g2)
#f
> (path-bfs 6 1 g2)
#f