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))

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 15))
(display (f 16))
(display (f 17))

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 12))
(display (f 13))
(display (f 14))

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 9))
(display (f 10))
(display (f 11))

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 1))
(display (f 2))
(display (f 3))
 ...

1
2
3
4
5
6
7
(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 1))

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 1))
(display (f 2))
(display (f 3))
 ...

1
2
3
4
5
6
7
(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 123456789))

1
2
3
4
5
6
7
8
9
; prime -- a modest library
 
; primes n -- list of primes not greater than n in ascending order
(define (primes n) ; assumes n is an integer greater than one
  (let* ((len (quotient (- n 1) 2)) (bits (make-vector len #t)))
    (let loop ((i 0) (p 3) (ps (list 2))) ; sieve of eratosthenes
      (cond ((< n (* p p))
              (do ((i i (+ i 1)) (p p (+ p 2))
                   (ps ps (if (vector-ref bits i) (cons p ps) ps)))
 ...

1
2
3
4
5
6
7
8
9
; prime -- a modest library
 
; primes n -- list of primes not greater than n in ascending order
(define (primes n) ; assumes n is an integer greater than one
  (let* ((len (quotient (- n 1) 2)) (bits (make-vector len #t)))
    (let loop ((i 0) (p 3) (ps (list 2))) ; sieve of eratosthenes
      (cond ((< n (* p p))
              (do ((i i (+ i 1)) (p p (+ p 2))
                   (ps ps (if (vector-ref bits i) (cons p ps) ps)))
 ...

1
2
3
4
5
6
7
8
9
; prime -- a modest library
 
; primes n -- list of primes not greater than n in ascending order
(define (primes n) ; assumes n is an integer greater than one
  (let* ((len (quotient (- n 1) 2)) (bits (make-vector len #t)))
    (let loop ((i 0) (p 3) (ps (list 2))) ; sieve of eratosthenes
      (cond ((< n (* p p))
              (do ((i i (+ i 1)) (p p (+ p 2))
                   (ps ps (if (vector-ref bits i) (cons p ps) ps)))
 ...

1
2
3
4
5
6
7
8
9
; prime -- a modest library
 
; primes n -- list of primes not greater than n in ascending order
(define (primes n) ; assumes n is an integer greater than one
  (let* ((len (quotient (- n 1) 2)) (bits (make-vector len #t)))
    (let loop ((i 0) (p 3) (ps (list 2))) ; sieve of eratosthenes
      (cond ((< n (* p p))
              (do ((i i (+ i 1)) (p p (+ p 2))
                   (ps ps (if (vector-ref bits i) (cons p ps) ps)))
 ...

1
(display (eval '(+ 1 1)))

1
2
3
4
5
6
7
8
9
 
(define function7 (lambda () 
(display "function7...")
(newline)
'()))
 
(define go (lambda ()
(display "running go...")
(newline)
 ...

1
2
3
4
5
6
7
8
9
 
(define function7 (lambda () 
(display "function7...")
(newline)
'()))
 
(define go (lambda ()
(display "running go...")
(newline)
 ...

1
2
3
4
5
6
7
8
9
 
(define function7 (lambda () 
(display "function7...")
'()))
 
(define go (lambda ()
(display "running go...")
(newline)
(function7)))
 ...

1
2
3
4
5
6
7
8
9
 
(define function7 (lambda () '()))
 
(define go (lambda ()
(display "running go...")
(newline)
(function7)))
 
(go)
 ...

1
(+ 1 1)

1
(+ 3 (* 4 5))

1
(+ 3 (* 4 5))

1
2
3
4
5
6
7
8
(define (do_it n)
  (define (print_it n)
    (display n)
    (newline))
  (cond ((not(= n 42))
        (print_it n)
        (do_it (read)))
    ))

1
(+ 1 3)

1
2
(define (roulette-wheel)
  (random 37))

1
2
3
4
5
6
7
8
9
(define A
    (lambda()
        (let* ((x 2)
            (C (lambda (P)
                (let ((x 4))
                    (P))))
            (D (lambda ()
                x))
            (B (lambda ()
 ...

1
2
3
4
5
6
7
8
9
(define A
    (lambda()
        (let* ((x 2)
            (C (lambda (P)
                (let ((x 4))
                    (P))))
            (D (lambda ()
                x))
            (B (lambda ()
 ...

1
2
3
4
5
6
7
8
9
(define (square a) (* a a))
(define (sum-of-squares a b) (+ (square a) (square b)))
(define (zad a b c)
 (if (> a b)
    (if (> b c) (sum-of-squares a b) (sum-of-squares a c))
    (if (> a c) (sum-of-squares a b) (sum-of-squares b c))
 )
)
(display (zad 2 4 1))