Нахождения суммы элементов, лежащих выше главной диагонали матрицы - Lisp
Формулировка задачи:
SOS! Помогите пожалуйста с написанием программы. Я видел что такую задачу выкладывали ранее но реализовать её у меня никак не получается.Дана матрица А размера 7*7. Составить программу нахождения суммы элементов, лежащих выше главной диагонали.
Саму матрицу нашел как задавать рандомно, но дальше для меня абсолютно темный лес как и сам лисп в принципе
Листинг программы
- (defun random-list (size)
- (let ((lst '()))
- (dotimes (i size)(push (random 25) lst))lst))
- (defun matr (n m)
- (let ((res nil))
- (dotimes (j n)
- (push (random-list m) res))
- (reverse res)))
- (print (matr 7 7))
Решение задачи: «Нахождения суммы элементов, лежащих выше главной диагонали матрицы»
textual
Листинг программы
- (defun range (n m &optional (r nil))
- (cond ((= n m) (cons m r))
- (t (range n (- m 1) (cons m r)))))
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
