1
(define x 22)

1
2
3
4
5
6
7
8
(define dx .0001)
    (define (deriv f)
       (define (f-prime x)
         (/ (- (f (+ x dx)) (f x))
            dx))
       f-prime)
 
(define (square x) (* x x))
 ...

1
2
3
4
5
(define factorial
  (lambda(n)
    (if (= n 0)
      1
      (* n (factorial (- n 1))))))

1
2
3
(define (fac n)
  ((if (<=n 1) 1)
  (* (fac (- n 1)) n))))

1
2
3
(define (fac n)
  (if (= n 1) 1)
  (else (* n (fac (- n 1))))

1
2
3
4
5
6
7
8
(define dx .0001)
    (define (deriv f)
       (define (f-prime x)
         (/ (- (f (+ x dx)) (f x))
            dx))
       f-prime)
 
(define (square x) (* x x))
 ...

1
2
3
4
5
6
7
8
(define dx .0001)
    (define (deriv f)
       (define (f-prime x)
         (/ (- (f (+ x dx)) (f x))
            dx))
       f-prime)
 
(define (square x) (* x x))
 ...

1
2
3
4
5
(define (factorial x)
        (if (= x 1) 1
                (* x (factor (- x 1) ) )
        )
)

1
2
3
(define x 5)
if((< x 6) (set! x 7))
(display x)

1
2
3
(define x 5)
if((< x 6) (set! x 7))
(display x)

1
2
3
(define x 5)
if((< x 6) (set! x 7))
(display x)

1
2
3
4
5
(define (factorial x)
        (if (= x 1) 1
                (* x (factor (- x 1) ) )
        )
)

1
2
3
4
5
(define (factorial x)
        (if (= x 1) 1
                (* x (factor (- x 1) ) )
        )
)

1
2
3
(define x 5)
cond((< x 6) (set! x 7))
(display x)

1
2
3
4
5
(define (factorial x)
        (if (= x 1) 1
                (* x (factor (- x 1) ) )
        )
)

1
2
3
(define x 5)
cond((< x 6) set x 7)
(display x)

1
2
3
(define x 5)
cond((< x 6) 7)
(display x)

1
2
3
(define x 5)
cond((< x 6) 7)
(display x)

1
2
3
4
5
(define (factorial x)
        (if (= x 1) 1
                (* x (factor (- x 1) ) )
        )
)

1
2
3
4
5
(define (factorial x)
        (if (= x 1) 1
                (* x (factor (- x 1) ) )
        )
)

1
2
3
(define x 5)
cond((< x 6) (define x 7))
(display x)

1
2
3
4
5
(define (factorial x)
        (if (= x 1) 1
                (* x (factor (- x 1) ) )
        )
)

1
2
3
(define x 5)
cond((x<6) (define x 7))
(display x)

1
2
3
(define add(x y)
(+ x y)
)

1
2
(define x 5)
(display x)

1
2
(define (add xy)
        (+ xy) )

1
2
3
4
5
6
7
8
9
(define (f n)
 (do ((d (do ((i (- n 1) (- i 1))
              (d '() (cons i d)))
             ((< i 0) d))
         (append (cddr d) (list (car d)))))
     ((null? (cdr d)) (car d))))
(display (f 31))
(display (f 32))
(display (f 33))
 ...

1
2
3
4
5
6
7
8
9
(define (f n)
 (do ((d (do ((i (- n 1) (- i 1))
              (d '() (cons i d)))
             ((< i 0) d))
         (append (cddr d) (list (car d)))))
     ((null? (cdr d)) (car d))))
(display (f 26))
(display (f 27))
(display (f 28))
 ...

1
2
3
4
5
6
7
8
9
(define (f n)
 (do ((d (do ((i (- n 1) (- i 1))
              (d '() (cons i d)))
             ((< i 0) d))
         (append (cddr d) (list (car d)))))
     ((null? (cdr d)) (car d))))
(display (f 21))
(display (f 22))
(display (f 23))
 ...

1
2
3
4
5
6
7
8
9
(define (f n)
 (do ((d (do ((i (- n 1) (- i 1))
              (d '() (cons i d)))
             ((< i 0) d))
         (append (cddr d) (list (car d)))))
     ((null? (cdr d)) (car d))))
(display (f 18))
(display (f 19))
(display (f 20))