Seminario_TP3_EJ09

a)
(defun SumaVectores (v1 v2)
    (if (null v1) nil
        (cons (+ (car v1) (car v2)) (SumaVectores (cdr v1) (cdr v2)))
    )
)

b)
(defun norma (v)

    (sqrt (+ (expt (car v) 2) (expt (cadr v) 2)))
)

c)
(defun ProductoEscalar (v1 v2)

    (if (null v1) 0
        (+ (* (car v1) (car v2)) (ProductoEscalar (cdr v1) (cdr v2)))
    )
)