> (exists? odd? '(1 2 3 4))
[image] [image] filter?: undefined;
 cannot reference an identifier before its definition
> (exists? odd? '(1 2 3 4))
#t
> (exists? odd? '(1 2 3 4))
#t
> (exists? odd? '(1 2 3 4))
#t
> (exists odd? '(1 2 3 4))
(1 2 3 4)
> (exists odd? '(1 2 3 4))
1
> (exists even? '(1 2 3 4))
#t
> (exists even? '(1 2 3 4))
2
> (exists (lambda (l) (member 3 l)) '((1 2 4) (5 3 8) (15 2 10))) 
(5 3 8)
> (search (lambda (l) (member 3 l)) '((1 2 4) (5 3 8) (15 2 10))) 
[image] [image] search: undefined;
 cannot reference an identifier before its definition
> (search (lambda (l) (member 3 l)) '((1 2 4) (5 3 8) (15 2 10))) 
(3 8)
> (all? even? '(2 4 6 8 10))
#t
[image] read-syntax: expected a `)` to close `(`
> 

> (childless g)
(4)
> (parents 1 g)
()
> (parents 3 g)
(1 2)
> (symmetric? g)
#f
> (symmetric? '((1 2 3) (2 1) (3 1)))
#t
> (dfs-path 1 3 g)
[image] [image] dfs-path: undefined;
 cannot reference an identifier before its definition
> (dfs-path 1 3 g)
(3)
> (dfs-path 1 3 g)
(1 2 3)
> (dfs-path 1 4 g)
(1 2 3 4)
> (dfs-path 1 5 g)
(1 2 3 . #f)
> (dfs-path 1 5 g)
(1 2 3 5)
> (dfs-path 1 6 g)
[image] Interactions disabled; out of memory
> (dfs-path 1 1 g)
(1)
> (dfs-path 1 2 g)
(1 2)
> (dfs-path 1 3 g)
(1 2 3)
> (dfs-path 1 4 g)
(1 2 3 4)
> (dfs-path 1 5 g)
(1 2 3 5)
> (dfs-path 1 6 g)
(1 2 3 5 6)
> (dfs-path 3 6 g)
(3 5 6)
> (extend-path '(3 1) g)
((4 3 1) (5 3 1))
> (extend-path '(3 1) g)
((4 3 1) (5 3 1))
> (extend-acyclic '(3 1) g)
((4 3 1) (5 3 1))
> (extend '(5 3 2) g)
((2 5 3 2) (4 5 3 2) (6 5 3 2))
> (extend-acyclic '(5 3 2) g)
((4 5 3 2) (6 5 3 2))
> (extend-acyclic '(5 3 2) g)
((4 5 3 2) (6 5 3 2))
> (extend-level (extend-acyclic '(5 3 2) g) g)
(() ())
> (extend-level (extend-acyclic '(3 1) g) g)
(() ((2 5 3 1) (4 5 3 1) (6 5 3 1)))
> (extend-acyclic '(3 1) g)
((4 3 1) (5 3 1))
> (append '(1 2 3) '(4 5 6) '(7 8 9))
(1 2 3 4 5 6 7 8 9)
> (append '((1 2 3) '(4 5 6) '(7 8 9)))
((1 2 3) '(4 5 6) '(7 8 9))
> (apply
   append '((1 2 3) '(4 5 6) '(7 8 9)))
(1 2 3 quote (4 5 6) quote (7 8 9))
> (apply
   append '((1 2 3) (4 5 6) (7 8 9)))
(1 2 3 4 5 6 7 8 9)
> (extend-level (extend-acyclic '(3 1) g) g)
((2 5 3 1) (4 5 3 1) (6 5 3 1))
> (bfs-path 1 6 g)
(6 5 3 1)
> (dfs-path 1 6 g)
(1 2 3 5 6)
> (bfs-path 1 7 g)
#f
> (bfs-path 4 6 g)
#f
> (bfs-path 4 6 g)
#f
> (bfs-path 1 6 g)
(1 3 5 6)