sicp 2.3

sicp_2_3

;(define (make-point s e) (cons s e))
;(define (point-x z) (car z))
;(define (point-y z) (cdr z))
;
;(define (make-pryam point1 point3) (cons point1 point3))
;(define (get-point1 x) ( car x))
;(define (get-point3 x) ( cdr x))
;(define (get-length x) (abs (- (point-x (get-point1 x)) (point-x (get-point3 x)))))
;(define (get-heigth x) (abs (- (point-y (get-point1 x)) (point-y (get-point3 x)))))

;(define d (make-pryam (make-point -1 -1) (make-point 1 1)))

(define (make-pryam x1 y1 x3 y3) (list x1 y1 x3 y3))
(define (get-length x) (abs (- (car x) (caddr x))))
(define (get-heigth x) (abs (- (cadr x) (cadddr x))))
(define d (make-pryam  -1 -1 1 1))  

(define (perimetr x) (* 2 (+ (get-length x) (get-heigth x))))
(define (square x) (* (get-length x) (get-heigth x)))

(perimetr d)
(square d)