Нахождения суммы элементов, лежащих ниже главной диагонали матрицы - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
