> (exists? even? '(1 2 3 4 5))
[image] [image] filter: undefined;
 cannot reference an identifier before its definition
> (exists? even? '(1 2 3 4 5))
#t
> (exists? negative? '(1 2 3 4 5))
#f
> (search even? '(1 2 3 4))
1
> (search even? '(1 2 3 4))
2
> (search negative? '(1 2 3 4))
[image] [image] mcar: contract violation
  expected: mpair?
  given: ()
> (search negative? '(1 2 3 4))
#f
> (search even? '(1 2 3 4))
2
> (search (lambda (x) (assoc x al)) '(10 1 20))
1
> (search (lambda (x) (assoc x al)) '(10 1 20))
(1 . 1)
> (search negative? '(1 2 3 4))
#f
> (search even? '(1 2 3 4))
#t
> (search (lambda (x) (if (even? x) x #f)) '(1 2 3 4))
2
> (search even? '(1 2 3 4))
#f
> (search (lambda (x) (if (even? x) x #f)) '(1 2 3 4))
#f
> (or 3 #f)
3
> (search (lambda (x) (if (even? x) x #f)) '(1 2 3 4))
#f
> (search even? '(1 2 3 4))
#t
> (search (lambda (x) (if (even? x) x #f)) '(1 2 3 4))
2
> (search (lambda (x) (if (even? x) x #f)) '(1 2 3 4))
2
> (search (lambda (x) (assoc x al)) '(10 1 20))
(1 . 1)
> (search (lambda (x) (assoc x al)) '(10 15 20))
#f
> 
> (childless g)
[image] [image] filter: undefined;
 cannot reference an identifier before its definition
> (childless g)
(4)
> (parents 2 g)
(1 5 6)
> (symmetric? g)
[image] [image] all: undefined;
 cannot reference an identifier before its definition
> (symmetric? g)
[image] [image] all?: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 2
  given: 1
> (symmetric? g)
[image] [image] all?: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 2
  given: 1
> (symmetric? g)
#f
> (symmetric? '((1 2) (2 1) (3)))
#t
> (symmetric? '((1 2) (2 1 3) (3)))
#f
> (symmetric? '((1 2) (2 1 3) (3 2)))
#t
> 
> (dfs-path? 1 6 g)
[image] [image] user break
> (dfs-path? 1 3 g)
#t
> (dfs-path? 1 4 g)
#t
> (dfs-path? 1 5 g)
#t
> (dfs-path? 2 5 g)
#t
> (dfs-path? 3 1 g)
[image] [image] user break
> (dfs-path? 4 2 g)
#f
> 
> (dfs-path 4 2 g)
#f
> (dfs-path 1 3 g)
(1 2 3)
> (dfs-path 1 4 g)
(1 2 3 4)
> (dfs-path 1 7 g)
(1 2 3 . #f)
> (dfs-path 1 7 g)
[image] [image] [image] Interactions disabled
> (dfs-path 1 3 g)
(1 2 3)
> (dfs-path 1 5 g)
(1 2 3 5)
> (dfs-path 3 5 g)
(3 5)
> (dfs-path 1 3 g)
(3 2 1)
> (dfs-path 1 4 g)
(4 3 2 1)
> (dfs-path 1 5 g)
(5 3 2 1)
> (dfs-path 1 6 g)
(6 5 3 2 1)
> (dfs-path 4 6 g)
#f
> (dfs-path 2 1 g)
#f
> (dfs-path 1 6 g)
(1 2 3 5 6)
> (dfs-path 1 7 g)
#f
> (extend '(3 1) g)
((4 3 1) (5 3 1))
> (extend '(2 5 3 1) g)
((3 2 5 3 1))
> (extend '(2 5 3 1) g)
((3 2 5 3 1))
(extend-acyclic '(2 5 3 1) g)
((3 2 5 3 1))
> 
(extend-acyclic '(2 5 3 1) g)
()
> 
(extend-acyclic '(2 5 3 1) g)
()
[image] read-syntax: expected a `)` to close `(`
> (bfs-path 1 5 g)
[image] [image] bfs-path: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 3
  given: 1
> (bfs-path 1 5 g)
[image] [image] p: undefined;
 cannot reference an identifier before its definition
> (bfs-path 1 5 g)
[image] [image] mcdr: contract violation
  expected: mpair?
  given: #f