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

1
2
(define (square a) (* a a))
(display (square 5))

1
2
(define (square a) (* a a))
(print (square 5))

1
(define (square a) (* a a))(square 5)

1
2
3
4
5
6
7
(define (zad a b c)
 ((if (> a b)
     (if (> b c) (+ (* a a) (* b b)) (+ (* a a) (* c c)))
     (if (> a c) (+ (* a a) (* b b)) (+ (* b b) (* c c)))
  )
 )
) (zad 2 4 1)

1
2
3
4
5
6
(define (foo w h)
        (if (= w 0)
            h
            (if (= h 0)
                w
                (+ (foo (- w 1) h) (foo w (- h 1))))))

1
2
3
4
5
6
(define (foo w h)
        (if (= w 0)
            h
            (if (= h 0)
                w
                (+ (foo (- w 1) h) (foo w (- h 1))))))

1
2
3
(define x 3)
(define (mult3 y)
(* y x))

1
2
3
4
(define (zoo x)
  (* x x))
 
(zoo 5)

1
2
3
4
(define (zoo x)
  (* x x))
 
(zoo 5)

1
2
3
4
(define (zoo x)
  (* x x))
 
(zoo 5)

1
2
3
4
(define (zoo x)
  (* x x))
 
(zoo 5)

1
2
3
4
5
6
(define (foo w h)
        (if (= w 0)
            h
            (if (= h 0)
                w
                (+ (foo (- w 1) h) (foo w (- h 1))))))

1
2
3
4
5
6
7
8
9
(define (isPrime? p)
  (if (= p 1) 
      #t
      (non-divisible-by p 2)))
 
 
(define (non-divisible-by n d)
  (if (> d (sqrt n))
      #t
 ...

1
2
3
4
5
6
7
8
9
(define (isPrime? p)
  (if (= p 1) 
      #t
      (non-divisible-by p 2)))
 
 
(define (non-divisible-by n d)
  (if (> d (sqrt n))
      #t
 ...

1
2
3
4
5
6
7
8
9
(define (isPrime? p)
  (if (= p 1) 
      #t
      (non-divisible-by p 2)))
 
 
(define (non-divisible-by n d)
  (if (> d (sqrt n))
      #t
 ...

1
2
3
4
5
6
7
8
9
(define (isPrime? p)
  (if (= p 1) 
      #t
      (non-divisible-by p 2)))
 
 
(define (non-divisible-by n d)
  (if (> d (sqrt n))
      #t
 ...

1
2
3
4
5
6
7
8
9
(define (isPrime? p)
  (if (= p 1) 
      #t
      (non-divisible-by p 2)))
 
 
(define (non-divisible-by n d)
  (if (> d (sqrt n))
      #t
 ...

1
2
3
4
5
6
7
8
(define (fun a b c)
 ((if (> a b)
     (if (> b c) (+ (* a a) (* b b)) (+ (* a a) (* c c)))
     (if (> a c) (+ (* a a) (* b b)) (+ (* b b) (* c c)))
  )
 )
)
(fun 2 4 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
(car '(a b c))

1
2
3
4
5
6
(define (foo w h)
        (if (= w 0)
            h
            (if (= h 0)
                w
                (+ (foo (- w 1) h) (foo w (- h 1))))))

1
2
3
4
5
6
(define (foo w h)
        (if (= w 0)
            h
            (if (= h 0)
                w
                (+ (foo (- w 1) h) (foo w (- h 1))))))

1
print "Kode Multus"

1
2
3
4
n=int(raw_input())
m=int(raw_input())
l=n+m
print "add=",l,m,n

1
2
3
4
5
6
7
8
9
(define zero (lambda (f) (lambda (x) x)))
 
(define (add-1 n)
  (lambda (f) (lambda (x) (f ((n f) x)))))
 
(display (zero 0))
(newline)
(display (add-1 zero))
(newline)

1
2
3
4
5
6
7
8
(define zero (lambda (f) (lambda (x) x)))
 
(define (add-1 n)
  (lambda (f) (lambda (x) (f ((n f) x)))))
 
(display (zero 0))
(newline)
(display (add-1 zero))