Нахождения суммы элементов, лежащих ниже главной диагонали матрицы - Lisp
Формулировка задачи:
Дана матрица А размера 7*7. Составить программу нахождения суммы элементов, лежащих ниже главной диагонали.
Решение задачи: «Нахождения суммы элементов, лежащих ниже главной диагонали матрицы»
textual
Листинг программы
(defun matrix-main-diagonal-below-sum (w) (loop for a in (cdr w) for b upfrom 1 sum (reduce #'+ (subseq a 0 b)))) > (matrix-main-diagonal-below-sum '((1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1))) 6