Seminario_TP3_EJ10

a)
(defun SumaMatriz (m1 m2)
    (defun SumaVectores (v1 v2)
        (if (null v1) nil
            (cons (+ (car v1) (car v2)) (SumaVectores (cdr v1) (cdr v2)))
        )
    )
    (if (null m1) nil
        (append (list (SumaVectores (car m1) (car m2)))
            (SumaMatriz (cdr m1) (cdr m2)))
    )
)

b)
(defun traspuesta (l)
    (defun cab (l)
        (if (null l) nil
            (cons (caar l) (cab (cdr l)))
        )
    )
    (defun quitacab (l)
        (if (null l) nil
            (append (list (cdar l)) (quitacab (cdr l)))
        )
    )
    (if (null (car l)) nil
        (append (list (cab l))(traspuesta (quitacab l)))
    )
)


(defun ProductoMatriz (mat1 mat2)
    (defun calculo (l1 l2)
        (if (null l1) 0
            (+ (* (car l1) (car l2)) (calculo (cdr l1) (cdr l2)))
        )
    )
    (defun corta (l l2)
        (if (null l2) nil
            (cons (calculo l (car l2)) (corta l (cdr l2)))
        )
    )
    (defun larga (l l2)
        (if (null l) nil
            (append (list (corta (car l) l2)) (larga (cdr l) l2))
        )
    )
    (larga mat1 (traspuesta mat2))
)