Нахождения суммы элементов, лежащих ниже главной диагонали матрицы

@Baby_Sad · Регистрация: 13.10.2013

Дана матрица А размера 7*7. Составить программу нахождения суммы элементов, лежащих ниже главной диагонали.

@Catstail · 07.05.2015, 23:00

HomeLisp (любая размерность):

Lisp

(defun sum (matr)
  (let ((n (length matr)))
    (apply '+ (mapcar #'(lambda (r k) (apply '+ (subseq r 0 k))) (cdr matr) (range 1 (- n 1))))))
 
 
==> sum
 
(sum '((1 2 3 4) (5 6 7 8) (9 10 11 12) (13 14 15 16)))
 
==> 66

@_sg · 07.05.2015, 23:11

как вариант:

Lisp

(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

@castorsky · 08.05.2015, 23:54

Lisp

;; racket-lang.org
(define (foo lst)
  (bar (rest lst)))
 
(define (bar lst (acc 0))
  (if (null? (rest lst))
      (+ acc (first (first lst)))
      (bar (map rest (rest lst))
           (+ acc (apply + (map first lst))))))

Нахождения суммы элементов, лежащих ниже главной диагонали матрицы

Решение

Решение

@Baby_Sad 1 / 1 / 0 Регистрация: 13.10.2013 Сообщений: 42
		1
	Нахождения суммы элементов, лежащих ниже главной диагонали матрицы 07.05.2015, 22:16. Показов 1396. Ответов 3 Метки нет (Все метки) Дана матрица А размера 7*7. Составить программу нахождения суммы элементов, лежащих ниже главной диагонали. 0

Опции темы