1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define foldl
  (lambda (lst op base)
    (if (null? lst) base
      (foldl (cdr lst) op (op base (car lst))))))
 
(define foldr
  (lambda (lst op base)
    (if (null? lst) base
      (op (car lst) (foldr (cdr lst) op base)))))
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define foldl
  (lambda (lst op base)
    (if (null? lst) base
      (foldl (cdr lst) op (op base (car lst))))))
 
(define foldr
  (lambda (lst op base)
    (if (null? lst) base
      (op (car lst) (foldr (cdr lst) op base)))))
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
2
3
4
5
6
7
8
9
10
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define foldl
  (lambda (lst op base)
    (if (null? lst) base
      (foldl (cdr lst) op (op base (car lst))))))
 
(define foldr
  (lambda (lst op base)
    (if (null? lst) base
      (op (car lst) (foldr (cdr lst) op base)))))
 ...

1
2
3
4
5
6
7
8
9
(define foldl
  (lambda (lst op base)
    (if (null? lst) base
      (foldl (cdr lst) op (op base (car lst))))))
 
(define foldr
  (lambda (lst op base)
    (if (null? lst) base
      (op (car lst) (foldr (cdr lst) op base)))))
 ...

1
2
3
4
5
6
7
8
9
(define foldl
  (lambda (lst op base)
    (if (null? lst) base
      (foldl (cdr lst) op (op base (car lst))))))
 
(define foldr
  (lambda (lst op base)
    (if (null? lst) base
      (op (car lst) (foldr (cdr lst) op base)))))
 ...

1
2
3
4
5
6
7
8
9
(define foldl
  (lambda (lst op base)
    (if (null? lst) base
      (foldl (cdr lst) op (op base (car lst))))))
 
(define foldr
  (lambda (lst op base)
    (if (null? lst) base
      (op (car lst) (foldr (cdr lst) op base)))))
 ...

1
2
3
4
5
6
7
8
9
(define foldl
  (lambda (lst op base)
    (if (null? lst) base
      (foldl (cdr lst) op (op base (car lst))))))
 
(define foldr
  (lambda (lst op base)
    (if (null? lst) base
      (op (car lst) (foldr (cdr lst) op base)))))
 ...

1
2
3
4
5
6
7
8
9
(define foldl
  (lambda (lst op base)
    (if (null? lst) base
      (foldl (cdr lst) op (op base (car lst))))))
 
(define foldr
  (lambda (lst op base)
    (if (null? lst) base
      (op (car lst) (foldr (cdr lst) op base)))))
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define square
(lambda (x)
(* x x)))
 
(define exp
(lambda (a b)
(cond ((= 0 b) 1)
((even? b) (square (exp a (/ b 2))))
(else (* a (exp a (- b 1)))))))
 ...

1
2
3
4
5
6
7
8
9
(define foldl
  (lambda (lst op base)
    (if (null? lst) base
      (foldl (cdr lst) op (op base (car lst))))))
 
(define foldr
  (lambda (lst op base)
    (if (null? lst) base
      (op (car lst) (foldr (cdr lst) op base)))))
 ...