> (error "Грешка!")
[image] [image] error: undefined;
 cannot reference an identifier before its definition
[image] read-syntax: expected a `)` to close `(`
> (error "Това е грешка")
[image] [image] mcar: contract violation
  expected: mpair?
  given: "Това е грешка"
> (make-rat 1 0)
[image] [image] mcar: contract violation
  expected: mpair?
  given: "make-rat е извикан с нулев знаменател"
[image] read-syntax: expected a `)` to close `(`
> (*-rat (make-rat 1 2) (make-rat 3 4))
(3 . 8)
> (+-rat (make-rat 1 2) (make-rat 3 4))
(10 . 8)
> (<-rat (make-rat 1 2) (make-rat 3 4))
#t
> (my-exp 1 10)
(18099969098565397826764800000 . 6658606584104736522240000000)
[image] [image] s: undefined;
 cannot reference an identifier before its definition
> 
> (to-double (my-exp 1 10))
9864101/3628800
> (to-double (my-exp 1 10))
2.7182818011463845
> (exp 1)
2.718281828459045
> (my-exp 1 10)
(18099969098565397826764800000 . 6658606584104736522240000000)
> (my-exp 1 10)
(9864101 . 3628800)
> (<-rat (make-rat 1 2) (make-rat -1 3))
#f
> (<-rat (make-rat 1 2) (make-rat -2 3))
#f
> (<-rat (make-rat -1 2) (make-rat -2 3))
#f
> (<-rat (make-rat -1 2) (make-rat -1 3))
#t
> (<-rat (make-rat 1 3) (make-rat -1 2))
#f
> (<-rat (make-rat 1 3) (make-rat 1 -2))
#t
> (<-rat (make-rat 1 3) (make-rat 1 -2))
#f
> 
> (to-double (my-exp 1 10))
2.7182818011463845
> (my-exp 1 10)
(rat 9864101 . 3628800)
> (check-rat '(1 2 3))
[image] [image] check-rat: undefined;
 cannot reference an identifier before its definition
> (get-numer '(1 2 3))
2
> (get-numer '(1 2 3))
[image] [image] error: undefined;
 cannot reference an identifier before its definition
> (get-numer '(1 2 3))
[image] [image] mcar: contract violation
  expected: mpair?
  given: "Очаква се рационално число"
> (get-numer '(1 2 3))
[image] [image] mcar: contract violation
  expected: mpair?
  given: "Очаква се рационално число"
> (+-rat (make-rat 1 2) '(3 4 5))
[image] [image] mcar: contract violation
  expected: mpair?
  given: "Очаква се рационално число"

> 
> +
#<procedure:+>
> (lamdbda (x) (+ x 2))
[image] [image] lamdbda: undefined;
 cannot reference an identifier before its definition
> (lambda (x) (+ x 2))
#<procedure>
> (define (mypair x y) (lambda (z) (z x y)))
> (mypair 2 3)
#<procedure>
> (cons 2 3)
(2 . 3)
> (car (mypair 2 3))
[image] [image] mcar: contract violation
  expected: mpair?
  given: #<procedure>
> ((mypair 2 3) +)
5
> ((mypaid 2 3) (lambda (x y) x))
[image] [image] mypaid: undefined;
 cannot reference an identifier before its definition
> ((mypair 2 3) (lambda (x y) x))
2
> ((mypair 2 3) (lambda (x y) y))
3
> (make-rat 1 2)
#<procedure:...scheme/rational.scm:68:8>
> ((make-rat 1 2) 'print)
(1 . 2)
> ((make-rat 1 2) 'get-numer)
1
> (get-numer (make-rat 1 2))
1
> ;; Rat(1,2).getNumer()
1
1
> ((make-rat 1 2) 'get-exponent)
[image] [image] mcar: contract violation
  expected: mpair?
  given: "непознат метод на rat"
> (todouble (my-exp 1 10))
[image] [image] todouble: undefined;
 cannot reference an identifier before its definition
> (to-double (my-exp 1 10))
2.7182818011463845
> (exp 1)
2.718281828459045
> ((make-rat 1 2) '* (make-rat 3 4))
#<procedure:...scheme/rational.scm:68:8>
> (((make-rat 1 2) '* (make-rat 3 4)) 'print)
(3 . 8)
>