> (1 . 2)
[image] #%app: bad syntax in: (#%app 1 . 2)
> '(1 . 2)
(1 . 2)
> '(1 . (2 . (3 . ())))
(1 2 3)
> (list? '(1 . 2))
#f
> (list? '(1 . (2 . 3)))
#f
> (list? '(1 . (2 . (3 . ()))))
#t
> (list? '(1 . (2 . (3 . ()))))
#t
> (list? '(1 . (2 . 3)))
#f
> (define + *)
> (+ 2 3)
6
> (list 1 2 3 4 5)
(1 2 3 4 5)
> '(1 2 3 4 5)
(1 2 3 4 5)
> (1 2 3 4 5)
[image] [image] application: not a procedure;
 expected a procedure that can be applied to arguments
  given: 1
> (length '(1 2 3))
3
> (append '(1 2 3) '(4 5 6) '(7 8 9 10))
(1 2 3 4 5 6 7 8 9 10)
> (append '(1 2 3))
(1 2 3)
> (append)
()
> (append '(1 2 3) '())
(1 2 3)
> (append '(1 2 3) '(1))
((1 2 3) . 1)
> (append '(1 2 3) '(1))
(1 1 2 3)
> (append '(1 2 3) '(1))
(1 2 3 1)
> (append '(1 2 3) '(4 5 6))
(1 2 3 4 5 6)
> (reverse '(1 2 3 4))
(4 3 2 1)
> (reverse '(1 2 3 4))
(4 3 2 1)
> (reverse '(1 2 3 4))
(4 3 2 1)
> (list-tail '(1 2 3 4 5) 2)
(3 4 5)
> (list-tail '(1 2 3 4 5) 0)
(1 2 3 4 5)
> (list-tail '(1 2 3 4 5) 6)
[image] [image] mcdr: contract violation
  expected: mpair?
  given: ()
> (list-tail '(1 2 3 4 5) 6)
[image] [image] mcdr: contract violation
  expected: mpair?
  given: ()
> (list-tail '(1 2 3 4 5) 3)
(4 5)
> (list-ref '(1 2 3 4 5) 3)
4
> (list-ref '(1 2 3 4 5) 10)
[image] [image] mcdr: contract violation
  expected: mpair?
  given: ()
> (list-ref '(1 2 3 4 5) 0)
1
> (list-ref '(1 2 3 4 5) 0)
1
> (list-ref '(1 2 3 4 5) 3)
4
> (member 0 '(1 2 3 4 5))
#f
> (member 3 '(1 2 3 4 5))
(3 4 5)
> (member 3 '(1 2 3 4 5 3 1 2 3 5))
(3 4 5 3 1 2 3 5)
> (member 3 (cdr (member 3 '(1 2 3 4 5 3 1 2 3 5))))
(3 1 2 3 5)
> (member 3 (cdr (member 3 (cdr (member 3 '(1 2 3 4 5 3 1 2 3 5))))))
(3 5)
> (member 3 '(1 2 3 4 5))
(3 4 5)
> (member 0 '(1 2 3 4 5))
#f
> (member a '(a b c))
[image] [image] a: undefined;
 cannot reference an identifier before its definition
> (member 'a '(a b c))
[image] [image] =: contract violation
  expected: number?
  given: a
  argument position: 1st
> (member 'a '(a b c))
(a b c)
> (member + '(+ - * /))
#f
> (member '+ '(+ - * /))
(+ - * /)
> (list + - * /)
(#<procedure:+> #<procedure:-> #<procedure:*> #<procedure:/>)
> (member + (list + - * /))
(#<procedure:+> #<procedure:-> #<procedure:*> #<procedure:/>)
> (equal? + +)
#t
> (equal? + -)
#f
> (equal? (lambda (x y) (+ x y)) +)
#f
> (equal? (lambda (x y) (+ x y)) +)
#f
> (member + (list + - * /))
(#<procedure:+> #<procedure:-> #<procedure:*> #<procedure:/>)
> (member / (list + - * /))
(#<procedure:/>)
> (member / (list + - * /))
> (member 3 '(1 2 3))
(3)
> 
> (member / (list + - * /))
(#<procedure:/>)
> 
> (member '(4 5 6) '((1 2 3) (4 5 6) (7 8 9)))
[image] [image] member-all: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 3
  given: 2
> (member '(4 5 6) '((1 2 3) (4 5 6) (7 8 9)))
((4 5 6) (7 8 9))
> (memv '(4 5 6) '((1 2 3) (4 5 6) (7 8 9)))
#f
> (memq '(4 5 6) '((1 2 3) (4 5 6) (7 8 9)))
#f
> (from-to 3 7)
(3 4 5 6 7)
> from-to
#<procedure:from-to>
> (from-to 3 7)
(3 4 5 6 7)
> (map 1+ (from-to 3 7))
(4 5 6 7 8)
> 
> (map 1+ (from-to 3 7))
(4 5 6 7 8)
> (filter odd? '(1 2 3 4 5))
(1 3 5)
> (filter even? '(1 2 3 4 5))
(2 4)
> (filter zero? '(1 2 3 4 5))
()
> (foldr + 0 '(1 2 3 4 5))
[image] [image] foldr: undefined;
 cannot reference an identifier before its definition
> 
> (map 1+ '(1 2 3 4 5))
[image] [image] 1+: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 1
  given: 2
> (map 1+ '(1 2 3 4 5))
(2 3 4 5 6)
> (filter even? '(1 2 3 4 5))
[image] [image] ?: undefined;
 cannot reference an identifier before its definition
> (filter even? '(1 2 3 4 5))
()
> (filter even? '(1 2 3 4 5))
(2 4)
> (filter even? '(1 2 3 4 5))
[image] [image] foldr: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 3
  given: 1
> (filter even? '(1 2 3 4 5))
(2 4)
> (foldr (lambda (h r) (cons h (cons h r))) '() '(1 2 3 4 5))
(1 1 2 2 3 3 4 4 5 5)
> (foldl + 0 '(1 2 3 4 5))
15
> (foldl + 0 '(1 2 3 4 5))
15
> (reverse '(1 2 3 4 5))
[image] [image] mcar: contract violation
  expected: mpair?
  given: 1
> (reverse '(1 2 3 4 5))
(5 4 3 2 1)
> (reverse '(1 2 3 4 5))
(5 4 3 2 1)
> (maximum '( 3 6 2 7 3 0))
7
> (maximum '())
[image] [image] mcar: contract violation
  expected: mpair?
  given: ()
> (max)
[image] [image] max: arity mismatch;
 the expected number of arguments does not match the given number
  expected: at least 1
  given: 0
> (foldr1 max '(1 2 3 4 5))
[image] [image] max: contract violation
  expected: real?
  given: ()
  argument position: 2nd
> (foldr1 max '(1 2 3 4 5))
5
> (foldl1 max '(1 2 3 4 5))
5
> (foldr + 0 '(1 2 3 4 5))
15
> (foldr + '(1 2 3 4 5))
[image] [image] foldr: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 3
  given: 2
> (count-atoms dl)
8
> 
> (flatten dl)
[image] [image] mcar: contract violation
  expected: mpair?
  given: 2
> (flatten dl)
(1 2 3 4 5 6 7 8)
> (deep-reverse dl)
[image] [image] mcar: contract violation
  expected: mpair?
  given: 7
> (deep-reverse dl)
(8 7 6 5 4 3 2 1)
> (deep-reverse dl)
(((() . 8) (((() () . 7)) (() () . 6) . 5) (() . 4) () . 3) (() () . 2) . 1)
> (deep-reverse dl)
((1 (2)) (((3) 4) (5 (6)) () (7)) 8)
> (deep-reverse dl)
(((() 8) ((((() (() 7)) ()) ((() (() 6)) 5)) ((() 4) (() 3)))) ((() (() 2)) 1))
> (deep-reverse dl)
((1 (2)) (((3) 4) (5 (6)) () (7)) 8)
> (deep-reverse dl)
(((() . 8) (((() () . 7)) (() () . 6) . 5) (() . 4) () . 3) (() () . 2) . 1)